|
Página 1 de 1
|
Autogenerar Controles (Solucionado)
Autor |
Mensaje |
queobsmx
Usuario
Registrado: Julio 2010
Mensajes: 6
Edad: 39
|
Autogenerar Controles (Solucionado)
Hola que tal.
Finalmente pude hacer que se copiaran los controles que requeria pero no he podido hacer que se autogeneren.
me podrian decir que parte de mi codigo tengo mal?
Numero = frame.tag
IF Numero = 0 THEN
FOR Numero = 1 TO Val(txtNum.Text) STEP 1
Marco.Move(Marco.Width + Xpos + 20, Ypos, 150, 180)
Marco.Caption = "Maquina " & Numero
Xpos = Marco.X
Ypos = Marco.Y
SELECT CASE Numero
CASE 6
Marco.Move(300, Marco.Height + 10, 150, 180)
Xpos = Marco.X
Ypos = Marco.Y
CASE 12
Marco.Move(300, Ypos + Marco.Height + 10, 150, 180)
Xpos = Marco.X
Ypos = Marco.Y
CASE 18
Marco.Move(300, Ypos + Marco.Height + 10, 150, 180)
Xpos = Marco.X
Ypos = Marco.Y
END SELECT
NEXT
END IF
END IF
última edición por queobsmx el Martes, 10 Agosto 2010, 01:49; editado 1 vez
|
#1 Viernes, 06 Agosto 2010, 22:44 |
|
|
Dani26
Analista Programador
Registrado: Junio 2010
Mensajes: 365
Edad: 58 Ubicación: Montevideo
|
Re: Autogenerar Controles
¿Estás tratando de crear los controles en tiempo de ejucución?
Creo que te falta la palabra clave New. Entiendo que marco es un frame¿No?
Y luego el resto de tu código. Espero te sirva de algo.Saludos
=================== Migrando desde visual basic, el Gambas de Ms
Mi blog gambero
|
#2 Sabado, 07 Agosto 2010, 03:46 |
|
|
queobsmx
Usuario
Registrado: Julio 2010
Mensajes: 6
Edad: 39
|
Re: Autogenerar Controles
Si declaro el frame como nuevo pero por alguna razon no me autogenera los frames, inlcuso modifique el codigo pero me sigue sin autogenerar los frames en automatico.
El codigo nuevo que genere es este:
PUBLIC SUB Crear_Marcos()
DIM Marco AS Frame
DIM Xpos AS Integer
DIM Ypos AS Integer
DIM Repetir AS Integer
Marco = NEW Frame(FTest)
FOR Repetir = 1 TO Val(txtnum.Text)
IF Marco.Tag = NULL THEN
Marco.Move(330, 5, 150, 180)
Marco.Tag = 1
Marco.Caption = "Maquina " & Marco.Tag
Xpos = Marco.X
Ypos = Marco.Y
ELSE
Marco.Move(Xpos + Marco.Width + 30, Ypos, 150, 180)
Marco.Tag = Marco.Tag + 1
Marco.Caption = "Maquina " & Marco.Tag
Xpos = Marco.X
Ypos = Marco.Y
SELECT CASE Marco.Tag
CASE 7
Marco.Move(330, Marco.Height + 15, 150, 180)
Marco.Caption = "Maquina " & Marco.Tag
Xpos = Marco.X
Ypos = Marco.Y
CASE 13
Marco.Move(330, Marco.Y + Marco.Height + 15, 150, 180)
Marco.Caption = "Maquina " & Marco.Tag
Xpos = Marco.X
Ypos = Marco.Y
CASE 19
Marco.Move(330, Marco.Y + Marco.Height + 15, 150, 180)
Marco.Caption = "Maquina " & Marco.Tag
Xpos = Marco.X
Ypos = Marco.Y
END SELECT
END IF
NEXT
última edición por queobsmx el Domingo, 08 Agosto 2010, 04:12; editado 1 vez
|
#3 Sabado, 07 Agosto 2010, 23:03 |
|
|
queobsmx
Usuario
Registrado: Julio 2010
Mensajes: 6
Edad: 39
|
Re: Autogenerar Controles
por fin encontré la forma de auto generar los frames de mi código
PRIVATE Marco AS Frame
PUBLIC SUB Crear_Marcos()
DIM Repetir AS Integer
DIM Xpos AS Integer
DIM Ypos AS Integer
FOR Repetir = 1 TO Val(txtNum.Text)
Marco = NEW Frame(FTest) AS "MisMarcos"
SELECT CASE Repetir
CASE 1
Marco.Move(300, 5, 150, 180)
Marco.Caption = "Maquina " & Repetir
Xpos = Marco.X
Ypos = Marco.Y
CASE 2 TO 7
Marco.Move(150 + Xpos + 10, Ypos, 150, 180)
Marco.Caption = "Maquina " & Repetir
Xpos = Marco.X
Ypos = Marco.Y
CASE 8
Marco.Move(300, Ypos + 180, 150, 180)
Marco.Caption = "Maquina " & Repetir
Xpos = Marco.X
Ypos = Marco.Y
CASE 9 TO 14
Marco.Move(150 + Xpos + 10, Ypos, 150, 180)
Marco.Caption = "Maquina " & Repetir
Xpos = Marco.X
Ypos = Marco.Y
CASE 15
Marco.Move(300, Ypos + 180, 150, 180)
Marco.Caption = "Maquina " & Repetir
Xpos = Marco.X
Ypos = Marco.Y
CASE 16 TO 21
Marco.Move(150 + Xpos + 10, Ypos, 150, 180)
Marco.Caption = "Maquina " & Repetir
Xpos = Marco.X
Ypos = Marco.Y
CASE 22
Marco.Move(300, Ypos + 180, 150, 180)
Marco.Caption = "Maquina " & Repetir
Xpos = Marco.X
Ypos = Marco.Y
CASE 23 TO 28
Marco.Move(150 + Xpos + 10, Ypos, 150, 180)
Marco.Caption = "Maquina " & Repetir
Xpos = Marco.X
Ypos = Marco.Y
END SELECT
NEXT
END
PUBLIC SUB btnCrearTerminales_Click()
Crear_Marcos
END
Pongo el código por si a alguien mas le sirve
|
#4 Domingo, 08 Agosto 2010, 23:23 |
|
|
Dani26
Analista Programador
Registrado: Junio 2010
Mensajes: 365
Edad: 58 Ubicación: Montevideo
|
Re: Autogenerar Controles
Dos cosas. Primero, me alegro que lo hayas solucionado. por lo que veo en el código el NEW debía ir dentro del bucle For para que funcionara.
La segunda,que espero no tomes a mal, deberías editar el primer post y agregarle el solucionado en el título. Esto es bueno por dos cosas, si algiuen tiene un problema similar sabe que en tu post puede estar su solución. Y segundo para los que más saben(no es mi caso) y entran a responder se puedan concentar en los temas no solucionados.
Saludos.
=================== Migrando desde visual basic, el Gambas de Ms
Mi blog gambero
|
#5 Lunes, 09 Agosto 2010, 05:13 |
|
|
queobsmx
Usuario
Registrado: Julio 2010
Mensajes: 6
Edad: 39
|
Re: Autogenerar Controles (Solucionado)
No hay problema lo que pasa que no encontraba como cerrar la pregunta.
Gracias.
|
#6 Martes, 10 Agosto 2010, 01:50 |
|
|
|
Temas parecidos
Temas parecidos
|
Página 1 de 1
|
Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado Usuarios registrados conectados: Ninguno
|
No puede crear mensajes No puede responder temas No puede editar sus mensajes No puede borrar sus mensajes No puede votar en encuestas No puede adjuntar archivos Puede descargar archivos No puede publicar eventos en el calendario
|
|
|
|
|