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 l'ID della finestra del "Balloon",''
+
  <FONT color=gray>' ''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>
 
     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=#006400>' ''Si imposteranno le coordinate per determinare lo spostamento:''</font>
+
  <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=#006400>' ''...volendo, si potrà anche chiudere anticipatamente il "Balloon":''</font>
+
  <FONT color=gray>' ''...volendo, si potrà anche chiudere anticipatamente il "Balloon":''</font>
 
   dw.Close
 
   dw.Close
 
   
 
   
 
  '''End'''
 
  '''End'''

Versione delle 15: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