Hola amigos, feliz año para todos!

Tengo un problema, estoy intentando que una clase pueda lanzar un evento.

Para ser mas claro:

Tengo una clase llamada A

PUBLIC SUB validar()
      RAISE mal()
END

EVENT mal()


Dentro de un form creo una instancia de la clase A

Public var as A

PUBLIC SUB Form_Open()
 var = NEW A
 var.validar
END

PUBLIC SUB var_mal()
Message.Info("OK")
END SUB


Pero no funciona, el evento var_mal nunca se dispara y la orden raise mal si la ejecuta.

Necesito comprender bien esto de los eventos para continuar, que es lo que hago mal?

Hola
Los eventos pueden parecer métodos, pero no lo son. Los métodos son funciones públicas que están en una clase y a las cuales tu puedes llamar cuando quieras como a cualquier otra función.

Los eventos no son funciones. Solo son señales. Para que funcionen hay que enlaza la señal al objeto y el nombre del evento será el nombre del objeto y luego un guión y luego el nombre del evento.. El evento keypress no es nada por sí mismo. Es algo concreto el evento textbox1_keypress. Osea que un evento para que funcione tiene que estar ligado a un objeto y tiene que tener un observador que a menos que especifiques otro será el observer del formulario. El código de lo que ese evento hace va en el lugar donde esté el observador que a menos que especifiques otra cosa será en el formulario.

Tu puedes crear un evento en una clase, pero si no lo enlazas con algún objeto no funcionará. Para ello dispones de object.attach que enlaza un objeto con su observador y object.detach que lo desenlaza.

En definitiva tu puedes hacer

Que es lo mismo que


Una vez enlazado el nombre del evento en el form (o donde esté el observer) será NombreObjeto_NombreEvento

Imaginemos que deseamos crear un inexistente evento keypress para una clase textbox. El código que tu tienes en la clase es

Con lo cual has definido un evento keypress en una clase textbox. Ahora ya existe así que cuando creas la clase en el formulario ya puedes llamarlo. El código de ese evento va donde el observador esté.

En el formulario tienes


private sub MiTextBox_Keypress(param1 as integer, param2 as integer, paramN as integer)
...
end[/code]

Tienes que entender que el evento no es una función (como si lo es un método). Un evento solo es una señal o disparador. Para que funcione tiene que estar enlazado a un observador de eventos. Por lo general será el del formulario donde esté el objeto pero tu puedes crear otro observador distinto para ese objeto.

La clase Observer

Gracias amigo, al final deje de lado la idea de lanzar eventos. Preferi sentarme con lapiz y papel y diseñar bien las clases.Y anoche ya tenia todo funcionando. Con propiedades y metodos bien diseñados todo es posible de hacer, solo que pensé que lanzar un evento haría las cosas mas fáciles, creo que los eventos son para controles y no tendría que haber intentado usarlos.

Igualmente a partir de tu ayuda intente en un nuevo proyecto aprender sobre el tema pero tampoco salio. Creo que mi clase debería heredar de alguna otra para disponer del método attach. De todos modos lo dejare para investigar cuando vuelva a surgir la necesidad de lanzar eventos.

Muchas gracias!

Son los objetos los que se attachan.



Si en la clase MiClase tienes definido un evento entonces también puedes hacer esto para programar el evento del objeto:



Y ya por último a efectos de compresión hagamos una clase que partiendo de un textbox le añada una nueva propiedad tipo de tipo boleano


Con una clase como esta a la que llamo MTextBox lo que puedo hacer es
Dim MiTextBox as new MTextBox(ME) 'crear un textbox en el formulario actual con todas las cualidades de un textbox pero además con la propiedad tipo. Por ejemplo

Lo que hace esa clase es heredar textbox y añade una propiedad mas. Ahora puedes hacer en todo tu proyecto cosas como esta si declaras un textbox de clase MTextBox


Todo funciona igual solo que esos textboxes tienen además la propiedad boleana tipo.

Gracias Soplo esta perfecto! Fue mi error querer utilizar eventos, en mi caso no eran necesarios. Gracias una vez mas!