Cómo agregar controles usando código en VB6.0
Form1.Controls.Add "VB.CommandButton", "cmdObj1", Frame1
Dibujar un botón en el Frame1
Ejemplo de agregar método (colección de controles)
Sub privado Form_Load()
Form1.Controls.Add "VB.CommandButton", "cmdObj1", Frame1
¡Con Form1!cmdObj1
.Visible = True
.Width = 2000
.Caption = "Botón dinámico"
Terminar con
Fin Sub
Tenga en cuenta que el ejemplo de código anterior utiliza ! como elemento de sintaxis. También puede utilizar la sintaxis de colección estándar, como Form1.Controls("cmdObj1") para hacer referencia al control.
El segundo ejemplo utiliza la palabra clave WithEvents para declarar una variable de objeto de tipo CommandButton, lo que le permite programar eventos para el control. La variable de objeto se establece en la referencia devuelta por el método Add. Para probar este ejemplo, pegue su código en la sección de declaraciones y ejecute el proyecto.
Opción explícita
Privado con eventos btnObj como botón de comando
Sub privado btnObj_Click()
MsgBox "Este es un botón agregado dinámicamente".
End Sub
Sub privado Form_Load()
Establecer btnObj = Controls.Add("VB.CommandButton", "btnObj")
Con btnObj
.Visible = True
.Width = 2000
.Caption = "Hola"
.Top = 1000
.Left = 1000
Terminar con
End Sub
El tercer ejemplo agrega un control sin referencia a la colección Controles. Sin embargo, para programar eventos para dicho control, debe declarar una variable de objeto de tipo VBControlExtender y establecer la referencia devuelta por este método a ese objeto. Luego use el evento ObjectEvent para programar los eventos del control.
Opción explícita
Atenuar ctlExtender como VBControlExtender
Sub privado Form_Load()
Establecer ctlExtender = Controls.Add("Project1.UserControl1 ", "MyControl")
Con ctlExtender
.Visible = True
.Top = 1000
.Left = 1000
Terminar con
End Sub
Private Sub extObj_ObjectEvent(Info As EventInfo)
'Utilice Seleccionar mayúsculas y minúsculas para programar el evento de control.
Seleccione Información del caso.Nombre
Caso "Nombre de usuario"
'Compruebe el valor del nombre de usuario.
Información de MsgBox EventParameters("UserName").Value
'Ahora mostrar otros casos
Caso Else 'Evento desconocido
' Aquí se manejan los eventos desconocidos.
Finalizar selección
Finalizar sub