Differenze tra le versioni di "Spostare un Balloon"

Versione delle 19:22, 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