Uso della classe Watcher: differenze tra le versioni

Da Gambas-it.org - Wikipedia.
Vai alla navigazione Vai alla ricerca
Nessun oggetto della modifica
Nessun oggetto della modifica
Riga 6: Riga 6:
Esempio:
Esempio:
poniamo il caso di <SPAN style="text-decoration:underline">porre sotto osservazione</span> un ''Button2''. Successivamente lo renderemo nascosto.
poniamo il caso di <SPAN style="text-decoration:underline">porre sotto osservazione</span> un ''Button2''. Successivamente lo renderemo nascosto.
 
'''Private''' w As Watcher  <FONT color=#006400>' ''Dichiariamo l'oggetto di tipo della Classe “Watcher” che osserverà il Controllo''</font>
  '''Public''' Sub Form_Open()
  '''Public''' Sub Form_Open()
<FONT color=#006400>' ''Dichiariamo l'oggetto di tipo della Classe “Watcher” che osserverà il Controllo (Oggetto o Container):''</font>
  Dim w As Watcher
   
   
  <FONT color=#006400>' ''L'oggetto di tipo della Classe “Watcher” osserverà in particolare il Controllo: Button2.''
  <FONT color=#006400>' ''L'oggetto di tipo della Classe “Watcher” osserverà in particolare il Controllo: Button2.''

Versione delle 17:53, 27 ott 2013

La classe Watcher implementa un oggetto che può osservare un qualsiasi controllo (oggetto o contenitore) e sollevare alcuni eventi quando succede qualcosa su di esso. Questa classe è particolarmente utile per sapere quando un Controllo (Oggetto o Contenitore) viene spostato, ridimensionato, reso visibile o nascosto.


Esempio: poniamo il caso di porre sotto osservazione un Button2. Successivamente lo renderemo nascosto.

Private w As Watcher  ' Dichiariamo l'oggetto di tipo della Classe “Watcher” che osserverà il Controllo


Public Sub Form_Open()

' L'oggetto di tipo della Classe “Watcher” osserverà in particolare il Controllo: Button2.
' L'oggetto di tipo "Watcher" viene associato al Gruppo di nome: "ev":
    w = New Watcher(Button2) As "ev"

End


Public Sub Button1_Click()

' Nascondiamo l'oggetto (il "Button2") osservato:
  Button2.Hide
 
End


Public Sub ev_Hide( )  ' Se viene nascosto il Controllo “osservato”, viene allora sollevato questo evento
 
  Print “E' stato nascosto l'oggetto osservato !”
 
End