Differenze tra le versioni di "Spostare un Balloon"
Da Gambas-it.org - Wikipedia.
Riga 1: | Riga 1: | ||
− | 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 spostamento anche dopo la sua apparizione sul desktop. | + | Come è noto, l'impostazione del ''Balloon'' prevede, fra l'altro, la possibilità di posizionare tale oggetto anche alle coordinate da noi scelte. |
− | + | <BR>Tali coordinate sono riferite al ''Controllo'', al quale il ''Balloon'' punta. | |
+ | <BR>Esempio: | ||
+ | '''Public''' Sub Form_Open() | ||
+ | |||
+ | <FONT color=gray>' ''Imposta una posizione iniziale del "Balloon" con riferimento al Controllo al quale esso punta:''</font> | ||
+ | Balloon.Info("Testo qualsiasi", Me, 10, 10) | ||
+ | |||
+ | '''End''' | ||
+ | Poiché il ''Balloon'' è una finestra, potremo, come ogni altra finestra, effettuare un suo spostamento anche dopo la sua apparizione sul desktop e <SPAN Style="text-decoration:underline">a prescindere dal Controllo al quale punta</span>. Ciò vuol dire che in tal caso il riferimento sarà il desktop e non più il Controllo al quale punta. | ||
+ | <BR>Si otterrà questo risultato individuando il numero identificativo della finestra del ''Balloon'' mediante le risorse della Classe "DesktopWindow" del Componente ''gb.desktop'' . | ||
+ | |||
+ | Mostriamo un codice esemplificativo: | ||
+ | Private dw As DesktopWindow | ||
'''Public''' Sub Button1_Click() | '''Public''' Sub Button1_Click() | ||
− | Dim i As Integer | + | Dim i As Integer |
− | + | <FONT color=gray>' ''Imposta una posizione iniziale del "Balloon" con riferimento al Controllo al quale esso punta:''</font> | |
+ | Balloon.Info("Testo qualsiasi", Me, 10, 10) | ||
+ | |||
+ | <FONT color=gray>' ''Il "Balloon" resta in quella posizione per almeno 3 secondi:''</font> | ||
+ | Wait 3 | ||
+ | |||
+ | With Desktop | ||
<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> | <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> | ||
− | + | i = .Windows[Desktop.Windows.Count - 1].Id | |
− | + | End With | |
− | + | dw = New DesktopWindow(i) | |
− | <FONT color=gray>' ''Si imposteranno le coordinate per determinare lo spostamento:''</font> | + | <FONT color=gray>' ''Si imposteranno le coordinate per determinare lo spostamento. Il riferimento in questo caso sarà il desktop e non più il Controllo al quale punta:''</font> |
− | + | dw.Move(50, 300) | |
'''End''' | '''End''' | ||
− | + | '''Public''' Sub Button2_Click() | |
− | + | ||
<FONT color=gray>' ''...volendo, si potrà anche chiudere anticipatamente il "Balloon":''</font> | <FONT color=gray>' ''...volendo, si potrà anche chiudere anticipatamente il "Balloon":''</font> | ||
− | + | dw.Close | |
'''End''' | '''End''' |
Versione delle 19:21, 19 mar 2021
Come è noto, l'impostazione del Balloon prevede, fra l'altro, la possibilità di posizionare tale oggetto anche alle coordinate da noi scelte.
Tali coordinate sono riferite al Controllo, al quale il Balloon punta.
Esempio:
Public Sub Form_Open() ' Imposta una posizione iniziale del "Balloon" con riferimento al Controllo al quale esso punta: Balloon.Info("Testo qualsiasi", Me, 10, 10) End
Poiché il Balloon è una finestra, potremo, come ogni altra finestra, effettuare un suo spostamento anche dopo la sua apparizione sul desktop e a prescindere dal Controllo al quale punta. Ciò vuol dire che in tal caso il riferimento sarà il desktop e non più il Controllo al quale punta.
Si otterrà questo risultato individuando il numero identificativo della finestra del Balloon mediante le risorse della Classe "DesktopWindow" del Componente gb.desktop .
Mostriamo un codice esemplificativo:
Private dw As DesktopWindow Public Sub Button1_Click() Dim i As Integer ' Imposta una posizione iniziale del "Balloon" con riferimento al Controllo al quale esso punta: Balloon.Info("Testo qualsiasi", Me, 10, 10) ' Il "Balloon" resta in quella posizione per almeno 3 secondi: Wait 3 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. Il riferimento in questo caso sarà il desktop e non più il Controllo al quale punta: dw.Move(50, 300) End Public Sub Button2_Click() ' ...volendo, si potrà anche chiudere anticipatamente il "Balloon": dw.Close End