Visual Basic - AGREGAR CONTROLES EN TIEMPO DE EJECUCION

Life is soft - evento anual de software empresarial
 
Vista:

AGREGAR CONTROLES EN TIEMPO DE EJECUCION

Publicado por Ahmed Bustamante (8 intervenciones) el 13/03/2001 22:25:37
Como se puede insertar controles (command, combos) en un formulario en tiempo de ejecución
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:AGREGAR CONTROLES EN TIEMPO DE EJECUCION

Publicado por Iñaki (64 intervenciones) el 14/03/2001 08:46:20
Hola que tal,
Esto se puede hacer, pero con la concición con por
lo menos haya un control en tiempo de diseño.
Entonces a este control insertado en tiempo de diseño, lo que hay que hacer es poner la propiedad index a 0 (de esta manera indicamos al VB que cargaremos controles dinámicamente).
Entonces en tiempo de ejecución podemos cargar controles haciendo Load NombreControl(Indice) y
descargarlos con Unload NombreControl(Indice).

Otra cosa que hay que tener en cuenta es que el nuevo control cargado no esta visible y su posición es igual a la del control original, con lo que hay que moverlo y hacerlo visible.

Por ejemplo, imaginemos que hemos insertado un control Label con la propiedad Index=0,
Entonces en tiempo de ejecución podemos hacer:

Index = Label.Ubound + 1 'Nuevo indice
Load Label(Index)
Label(Index).Visible = True
Label(Index).Left = Label(Index-1).Left + 500

Un saludo,

Iñaki.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:AGREGAR CONTROLES EN TIEMPO DE EJECUCION

Publicado por Dan (1 intervención) el 14/03/2001 10:03:40
Se podría utilizar la colección controls con su método add, la sintaxis es la siguiente: (envío el mismo ejemplo que viene con la msdn)

Private Sub Form_Load()
Form1.Controls.Add "VB.CommandButton", "cmdObj1"
With Form1!cmdObj1
.Visible = True
.Width = 2000
.Caption = "Botón dinámico"
End With
End Sub

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar