Differenze tra le versioni di "Spostare un Ballon"
Da Gambas-it.org - Wikipedia.
Riga 8: | Riga 8: | ||
With Desktop | With Desktop | ||
− | <FONT color=#006400>' ''Per poter individuare | + | <FONT color=#006400>' ''Per poter individuare l'ID della finestra del "Balloon",'' |
' ''si porrà l'ultimo numero di "indice" delle finestre presenti nel desktop'' | ' ''si porrà l'ultimo numero di "indice" delle finestre presenti nel desktop'' | ||
' ''(ciò in quanto il "Balloon" è stata senza dubbio l'ultima finestra ad apparire sul desktop):''</font> | ' ''(ciò in quanto il "Balloon" è stata senza dubbio l'ultima finestra ad apparire sul desktop):''</font> |
Versione delle 06:48, 25 ott 2013
Come è noto, l'impostazione del Balloon prevede, fra l'altro, la possibilità di posizionare tale oggetto anche alle coordinate da noi scelte. Poiché il Balloon è una finestra, potremo, come ogni altra finestra, effettuare un suo spostamente anche dopo la sua apparizione sul desktop.
Private dw As DesktopWindow Public Sub Button1_Click() Dim i As Integer With Desktop ' Per poter individuare l'ID della finestra del "Balloon", ' si porrà l'ultimo numero di "indice" delle finestre presenti nel desktop ' (ciò in quanto il "Balloon" è stata senza dubbio l'ultima finestra ad apparire sul desktop): i = .Windows[Desktop.Windows.Count - 1].Id End With dw = New DesktopWindow(i) ' Si imposteranno le coordinate per determinare lo spostamento: dw.Move(x, y) End Public Sub Button2_Click() ' ...volendo, si potrà anche chiudere anticipatamente il "Balloon": dw.Close End