Uso della classe DesktopWatcher

La classe DesktopWatcher osserva il desktop sullo schermo. Essa consente all'utente di essere in grado di rilevare l'attività dello schermo con i gestori di eventi:

variabileTipoDesktopWatcher_nomeEvento(parametro-eventuale).

DesktopWatcher solleva i seguenti eventi:

• ActiveWindow: la finestra attiva è cambiata. Per sapere ora quale è, usare Desktop.ActiveWindow .
• Change: il desktop virtuale corrente è cambiato.
• Count: il numero dei desktop virtuali è cambiato.
• Geometry: la geometria del desktop è mutata.
• WindowGeometry: l'evento è sollevato, se una specifica finestra è stata spostata o ridimensionata.
• WindowIcon: l'evento è sollevato, se l'icona di una specifica finestra è cambiata.
• WindowName: l'evento è sollevato, se il nome o il nome visibile di una specifica finestra è cambiato.
• WindowState: l'evento è sollevato, se lo stato di una specifica finestra è cambiato.
• Windows: la lista delle finestre dei desktop è cambiata (una finestra di primo-livello è stata creata o distrutta)of destroyed). Per scorrere la lista e vedere quali finestre vi sono, usare Desktop.Windows .

Un breve esempio pratico:

Private dw As New DesktopWatcher As "dw"


Public Sub Form_Open()

' Restituisce o imposta se l'oggetto DesktopWatcher guarda solo la finestra principale:
  dw.RootWindow = True

End


' Se avvengono dei cambiamenti all'interno del desktop, ma anche:
' se si cambia desktop, ossia se si passa ad un altro desktop dello schermo;
' se viene spostato il focus da una finestra di un programma alla finestra di un altro programma;
' allora viene sollevato questo evento:
Public Sub dw_ActiveWindow( )
 
  TextLabel1.Text = "Modifica all'interno del Desktop !"
 
End


' Se si cambia desktop, ossia se si passa ad un altro desktop dello schermo,
' allora viene sollevato questo evento:
Public Sub dw_Change( )
 
  TextLabel1.Text = "Cambio Desktop !"
 
End


' Questo evento viene sollevato se l'elenco delle finestre è cambiato,
' cioè se una finestra è stata aperta, chiusa, o se l'ordine di sovrapposizione è cambiato:
Public Sub dw_Windows( )
 
  TextLabel1.Text = "Evento _Windows !"
 
End