Differenze tra le versioni di "Spostare un Ballon"
Da Gambas-it.org - Wikipedia.
| Riga 8: | Riga 8: | ||
With Desktop | With Desktop | ||
| − | <FONT color= | + | <FONT color=gray>' ''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):''</font> | ' ''(ciò in quanto il "Balloon" è stata senza dubbio l'ultima finestra ad apparire sul desktop):''</font> | ||
i = .Windows[Desktop.Windows.Count - 1].Id | i = .Windows[Desktop.Windows.Count - 1].Id | ||
| Riga 16: | Riga 15: | ||
dw = New DesktopWindow(i) | dw = New DesktopWindow(i) | ||
| − | <FONT color= | + | <FONT color=gray>' ''Si imposteranno le coordinate per determinare lo spostamento:''</font> |
dw.Move(''x'', ''y'') | dw.Move(''x'', ''y'') | ||
| Riga 24: | Riga 23: | ||
'''Public''' Sub Button2_Click() | '''Public''' Sub Button2_Click() | ||
| − | <FONT color= | + | <FONT color=gray>' ''...volendo, si potrà anche chiudere anticipatamente il "Balloon":''</font> |
dw.Close | dw.Close | ||
'''End''' | '''End''' | ||
Versione delle 14:55, 18 dic 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
