Visual Basic - Crear varios botones en tiempo de ejecucion

Life is soft - evento anual de software empresarial
   
Vista:

Crear varios botones en tiempo de ejecucion

Publicado por estocansamucho (1 intervención) el 24/11/2010 15:12:45
Tengo una base de datos en mysql con 5 elementos y quiero sacar esos 5 elementos en forma de boton por visual. El acceso a mysql lo tengo bastante claro, el problema es poder crear los botones en tiempo de ejecucion y darles formato con las propiedades.

Gracias
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:Crear varios botones en tiempo de ejecucion

Publicado por miguel (1042 intervenciones) el 02/12/2010 03:21:18
Primeramente debes de crear un arreglo de control de Command Button para que funcione te dejo un ejemplo de un control label y textbox.

Option Explicit

Private Sub Command1_Click()
' Crear un nuevo control Label y un Textbox
Dim i As Long
'
' Los array de controles son "en el fondo" colecciones de base cero,
' el número actual de controles nos dará el índice del siguiente índice
' (siempre que se hayan añadido de forma correlativa)
i = Label1.Count
' cargamos el control
Load Label1(i)
' le asignamos la posición, el caption y lo hacemos visible,
' ya que por defecto no está visible
With Label1(i)
.Top = Label1(i - 1).Top + 390
.Caption = "Label1(" & i & ")"
.Visible = True
End With
' idem con los textboxes
i = Text1.Count
Load Text1(i)
With Text1(i)
.Top = Text1(i - 1).Top + 390
.Visible = True
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