Trucos Añadir controles dinámicamente en VB 6.0

Hasta Visual Basic 5.0 si se quería añadir un control a un formulario se utilizaba la función Load, que permitía añadir un control a un array ya existente.
Esta limitación se ha eliminado de Visual Basic 6.0, y ya es posible añadir y borrar controles a la colección "Controls", sin necesidad de que exista un array ya creado.
Además, el nuevo control puede responder a eventos si se define con la palabra "WithEvents".
Como muestra, un sencillo ejemplo que crea un botón y se añade código al evento:
Dim WithEvents cmdObj1 As CommandButton Private Sub cmdObj1_Click()
     MsgBox "Esto es un control dinámico"
End Sub

Private Sub Form_Load()
     Set cmdObj1 = Form1.Controls.Add("VB.CommandButton", "cmdBoton1")
     cmdObj1.Caption = "Púlsame"
     cmdObj1.Left = 1500
     cmdObj1.Top = 1000
     cmdObj1.Visible = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
     Form1.Controls.Remove "cmdBoton1"
End Sub



Trucos Trucos

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com