Red de conocimiento informático - Problemas con los teléfonos móviles - Al agregar un control en VB (cuando se ejecuta, use add), ¿cómo agregar eventos para el control agregado?

Al agregar un control en VB (cuando se ejecuta, use add), ¿cómo agregar eventos para el control agregado?

Debe declarar una variable de objeto como un objeto VBControlExtender usando la palabra clave WithEvents (como arriba) y establecer la variable de objeto en la referencia devuelta por el método Add. Luego, use el evento ObjectEvent del objeto VBControlExtender para programar los eventos del control. A continuación se muestra un ejemplo sencillo.

Opción explícita

Atenuar con eventos objExt como VBControlExtender Declarar variables de extensión

Sub LoadControl privado()

Licencias.Agregar "Project1.Control1 ", "xydsfasfjewfe"

Establecer objExt = Controls.Add("Project1.Control1", "myCtl")

objExt.Visible = True

End Sub

Private Sub extObj_ObjectEvent(Info As EventInfo)

Utilice Seleccionar caso para programar eventos del control.

Seleccione Información.Nombre del caso

Caso "Clic"

El evento de clic se maneja aquí.

Ahora muestra otros casos

Caso Else eventos desconocidos

Aquí se manejan eventos desconocidos.

Finalizar selección

Finalizar sub