Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Autogenerar Controles (Solucionado)
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje 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 
queobsmx - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje 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?

Dim marco as frame
marco =new frame
 

  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
 
Dani26 - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje 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 
queobsmx - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje 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
 



 
queobsmx - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje 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
 
Dani26 - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Autogenerar Controles (Solucionado) 
 
No hay problema lo que pasa que no encontraba como cerrar la pregunta.
Gracias.
 



 
queobsmx - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Controles Básicos soplo Controles/Librerías/Componentes 0 Domingo, 13 Septiembre 2009, 18:32 Ver último mensaje
soplo
No hay nuevos mensajes Preguntas Sobre Los Arrays De Controles. (... nicoobe Controles/Librerías/Componentes 3 Miercoles, 23 Junio 2010, 20:48 Ver último mensaje
Emmet
No hay nuevos mensajes Recorrer Varios Controles (Solucionado) Dani26 General 7 Miercoles, 21 Septiembre 2011, 22:50 Ver último mensaje
Dani26
No hay nuevos mensajes Problemas Con Los Indices Del Padre Al Des... gambafeliz General 0 Jueves, 25 Junio 2020, 10:49 Ver último mensaje
gambafeliz
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
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



  

 

cron