Differenze tra le versioni di "Uso della classe Watcher"
Da Gambas-it.org - Wikipedia.
Riga 14: | Riga 14: | ||
<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.'' | ||
' ''L'oggetto di tipo "Watcher" viene associato al Gruppo di nome: "ev":''</font> | ' ''L'oggetto di tipo "Watcher" viene associato al Gruppo di nome: "ev":''</font> | ||
− | w = New Watcher(Button2) As "ev" | + | w = New Watcher(Button2) As "<FONT color=#B22222>ev</font>" |
'''End''' | '''End''' | ||
Riga 27: | Riga 27: | ||
− | '''Public''' Sub | + | '''Public''' Sub <FONT color=#B22222>ev</font>_Hide( ) <FONT color=#006400>' ''Se viene nascosto il Controllo “osservato”, viene allora sollevato questo evento''</font> |
Print “E' stato nascosto l'oggetto osservato !” | Print “E' stato nascosto l'oggetto osservato !” | ||
'''End''' | '''End''' |
Versione delle 17:49, 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.
Public Sub Form_Open() ' Dichiariamo l'oggetto di tipo della Classe “Watcher” che osserverà il Controllo (Oggetto o Container): Dim w As Watcher ' 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