Necesitaría poder ejecutar eventos de manera dinámica.
Mas concretamente, quiero conseguir un método que sea capaz de vaciar un control cualquiera. Pero para ello, no solo necesito poner el campo a NULL, sino que también necesitaría ejecutar el evento AfterUpdate de ese control.
Una idea simplificada para un solo formulario, sería hacer algo así:
Private Function BorrarContenido(byval NombreControl as String)
Me.controls(NombreControl) = Null
CAll NombreControl & "_AfterUpdate"
End Sub
Por supuesto, esto no funciona. Pero creo que es fácil de entender lo que necesitaría.
Por la red conseguí ver que el método Application.Run sería capaz de llamar a un método pasado como una cadena. Pero no es capaz de llamar a un evento de un formulario, así que tampoco me sirvió.
La alternativa de usar un SELECT CASE tampoco me vale. Este método quiero que sea lo más genérico posible. Así que hacer algo como lo que sigue no me serviría:
Private Function BorrarContenido(Byval NombreControl as string)
me.Controls(NombreControl) = Null
Select Case NombreControl
Case "Control1": Call Control1_AfterUpdate
Case "Control2": Call Control2_AfterUpdate
...
Case "ControlN": Call ControlN_AfterUpdate
End Sub
Alguna idea?
NOTA: Buscando por internet, suelo encontar las respuestas del tipo "y para que quieres hacer esto?". Suponed unos 200 formularios dentro de mi proyecto. Todos repletos de controles, combos y demás Ahora suponed que quiero dar una funcionalidad general al programa. Si el usuario hace doble clic sobre un control, este se borrará (y a su vez debe refrescar otros datos que estuvieran relacionados con ese control)
Cuando adapte cualquier formulario, querría añadir a cada control que me interese resetear, una redirección del evento DblClick al método BorrarContenido()
Control.OnDblClick = "BorrarContenido()"
Y solo con eso, despreocuparme de programar nada adicional. El método debería ser capaz de poner a Null el control, y de ejecutar el evento AfterUpdate.
After_Update
se ejecutaría tras actualizar el formulario, sin hacer nada más. A menos que tengasApplication.EnableEvents = False
lo que deberías hacer genérico es lo deBorrarContenido
pero los eventos se cargan solos.