[Gambas-user] Gambas EVENT - RAISE

Laurent Carlier lordheavy at ...512...
Wed Mar 14 21:30:54 CET 2007


Le Wednesday 14 March 2007 22:26:26 Vince Scott (SBC), vous avez écrit :
> Thanks, I think I am doing the same thing you are...
>
> Here is what I did:
>
> Inside cKeyboard class
>
> '*** Defined Outside Methods
>
> EVENT SendKey(p_Key AS String) as Boolean
>
> '*** Group Click Event From Button Group
>
> Public SUB grpKeys_Click()
>
>   Dim Ret as Boolean
>
>   Ret = RAISE SendKey(LAST.Tag)
>
> END
>
>
> '*** Inside FORM or an Encapsulated Class module
>
> Dim oKeyboard as New cKeyboard
>
> '*** Setup to Capture Event
>
> PUBLIC SUB oKeyboard_SendKey(p_Key AS String)
>
>    'NEVER GET THIS EVENT
>
> END
>
>

-> Dim oKeyboard as New cKeyboard AS "oKeyboard"

You must define a name for the event handler.

++







More information about the User mailing list