Salve, volendo inviare a questa SUB le chiamate per ogni azione sul FORM (senza attivare l'evento CLICK sul controllo) con in quale evento/azione posso chiamarla? (gli eventi sul FORM li ho provati tutti ma non sono riuscito a trovare la soluzione)
Public Sub ctl_setfocus ()
Dim obj as object
obj =Application.ActiveControl
obj.Foreground = Color.Red
End
Grazie
Se, come suppongo , ti riferisca alla pressione di un tasto qualsiasi oppure ad un click sulla Form, una soluzione potrebbe essere di trasferire lle istruzioni dentro procedure evento della Form, come
PUBLIC SUB Form_MouseDown()
END
PUBLIC SUB Form_KeyPress()
END
Gli eventi Form vengono generati da Gambas prima di quelli collegati agli oggetti che la contengono.
Ciao.
se ho capito bene, e vuoi mantenere sia gli eventi separati che gli eventi raggruppati, fai in questo modo:
Public Sub _new()
Dim Obs As Observer
Dim Con As Control
For Each Con In Me.Controls
Obs = New Observer(Con) As "Evento"
Next
End
Public Sub Evento_Click()
Print Last.Name
End
e vedi se da consolle leggi il nome dell'oggetto 'clikkato'