Spostare un Ballon: differenze tra le versioni

Da Gambas-it.org - Wikipedia.
Vai alla navigazione Vai alla ricerca
Nessun oggetto della modifica
Nessun oggetto della modifica
Riga 23: Riga 23:
   '''Public''' Sub Button2_Click()
   '''Public''' Sub Button2_Click()
   
   
  <FONT color=#006400>' ''...volendo, si potrà anche chiudere anticipatamente il "Balloon":''
  <FONT color=#006400>' ''...volendo, si potrà anche chiudere anticipatamente il "Balloon":''</font>
   dw.Close
   dw.Close
   
   
  '''End'''
  '''End'''

Versione delle 18:30, 13 ott 2012

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
' Si porrà il numero di "indice" della finestra del "Balloon",
' per poter individuare il suo PID:
    i = .Windows[num_index].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