Controllo attivo in Form [RISOLTO]

[pirandello]

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

[Picavbg]

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

Codice: [Seleziona]

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.

[pirandello]

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

Codice: [Seleziona]

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.

Provato non funge.
Dopo ogni evento (click, lostfocus) che si verifica nei controlli textbox, combobox, etc., il codice deve saltare in quella SUB (quella è solo una parte di tutto il codice): in questo modo io posso controllare il corretto contenuto presente nei controlli senza attivare l'evento ad ognuno.  

[milio]

se ho capito bene, e vuoi mantenere sia gli eventi separati che gli eventi raggruppati, fai in questo modo:

Codice: vb [Seleziona]

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'

[pirandello]

se ho capito bene, e vuoi mantenere sia gli eventi separati che gli eventi raggruppati, fai in questo modo:

Codice: vb [Seleziona]

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'

Mitico Milio funzionaaaaaa 

[perseo]

...le sa TUTTE!!! 

[pirandello]

Meno male che esiste questo forum altrimenti tutto il potenziale di gambas passerebbe inosservato.
Grazie a tutti di cuore.