Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Garrido_jesus20 en 27 Marzo 2006, 05:22 am



Título: Agregar controles en tiempo de ejecucion
Publicado por: Garrido_jesus20 en 27 Marzo 2006, 05:22 am
he visto por hay algunas aplicaciones en donde se agregan solas al formulario controles como el commandbutton, como por ejemplo cuando el usuario agrega un nuevo articulo, por defecto el sistema agrega al modulo de ventas un nuevo commandbutton haciendo referencia al nuevo articulo, si alguien conoce como puedo usar esto para mis futuras aplicaciones, se los agradecere. de ya he buscado por la web algo similar pero nada de nada.


Título: Re: Agregar controles en tiempo de ejecucion
Publicado por: Gorky en 27 Marzo 2006, 08:51 am
Creo que eso con VB 6.0 no se puede hacer. Se implemento con la salida de VB.Net. De todos modos no estoy plenamente seguro de lo que te estoy diciendo.


Título: Re: Agregar controles en tiempo de ejecucion
Publicado por: LeandroA en 27 Marzo 2006, 11:55 am
Hola Debes travajar con una matriz de controloes y haces un bucle con los articulos que tienes, de hay entonces cargas los botones segun la cantidad de articulos, y en su propiedad TAG le cargas el articulo entoses haces un SECT CASE  del tag en el evento click del boton

Te recomiendo veas matriz de controles y de hay te sacas la idea

Saludos


Título: Re: Agregar controles en tiempo de ejecucion
Publicado por: Kizar en 27 Marzo 2006, 15:21 pm
No es el "tag", es el index.


Título: Re: Agregar controles en tiempo de ejecucion
Publicado por: LeandroA en 27 Marzo 2006, 19:40 pm
si creo que seria mas conveniente el index en este caso yo puse TAG porque en mi caso utilizo datos (rutas de archivos etc.) y voy directamente al acceso del tag



Título: Re: Agregar controles en tiempo de ejecucion
Publicado por: Ironhorse en 28 Marzo 2006, 00:41 am
Podes cargar controles en tiempo de ejecucion con el comando LOAD
Para el ejemplo crea un boton Command1 y en la propiedad index ponele 0 (estas creando una matriz de controles)

Código:
Private Sub Command1_Click(Index As Integer)
Dim Cant As Long
  Cant = Command1.UBound + 1
  Load Command1(Cant)
  Command1(Cant).Top = 100
  Command1(Cant).Left = 100
  Command1(Cant).Visible = True
End Sub


Saludos


Título: Re: Agregar controles en tiempo de ejecucion
Publicado por: Garrido_jesus20 en 29 Marzo 2006, 21:57 pm
gracias a todos los amigos del foro de programacion de vb por la ayuda y sugerencias en especial a Ironhorse muy bueno tus lineas de codigo, ya estoy implementado esto en mis sistemas.

saludos