Differenze tra le versioni di "Uso della classe Watcher"

Da Gambas-it.org - Wikipedia.
(Nuova pagina: 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 cla...)
 
Riga 13: Riga 13:
 
   
 
   
 
  <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.''
  ''Il nome dell'evento sarà: "ev":''</font>
+
  ' ''Il nome dell'evento sarà: "ev":''</font>
 
     w = New Watcher(Button2) As "ev"
 
     w = New Watcher(Button2) As "ev"
 
   
 
   
Riga 27: Riga 27:
 
   
 
   
 
   
 
   
  <FONT color=#006400>' ''Se viene nascosto il Controllo “osservato”, viene allora sollevato questo evento:''</font>
+
'''Public''' Sub ev_Hide( ) <FONT color=#006400>' ''Se viene nascosto il Controllo “osservato”, viene allora sollevato questo evento''</font>
'''Public''' Sub ev_Hide( )
 
 
    
 
    
 
   Print “E' stato nascosto l'oggetto osservato !”
 
   Print “E' stato nascosto l'oggetto osservato !”
 
    
 
    
 
  '''End'''
 
  '''End'''

Versione delle 16:45, 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.
' Il nome dell'evento sarà: "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