Individuare l'ID della finestra di un Message

Per individuare il numero identificativo della finestra del Message aperta dal programma Gambas, poiché essa in un determinato momento è l'ultima finestra ad essere aperta, si potrà utilizzare la Proprietà ".ActiveWindow" della Classe statica Desktop attivando il Componente "gb.desktop".

Mostriamo un semplice esempio usando anche l'Oggetto "Timer", il quale consentirà di verificare ogni 100 millisecondi la finestra corrente "attiva" sulla Scrivania:

Private Timer1 As Timer


Public Sub Button1_Click()

 With Timer1 = New Timer As "Timer1"
   .Delay = 100
   .Start
 End With

 Message.Info("Testo qualsiasi")

End


Public Sub Timer1_Timer()

' Il "Timer" consente di verificare l'attuale finestra attiva e posta al di sopra delle altre.
' Quando sarà stato aperto il "Message", il Metodo "Desktop.ActiveWindow" ne individuerà la finestra e quindi il suo ID:
 Print Hex(Desktop.ActiveWindow, 6)

End