Red de conocimiento informático - Problemas con los teléfonos móviles - Cómo agregar controles usando código en VB6.0

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