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