Differenze tra le versioni di "Chiudere un ToolTip anticipatamente"

Da Gambas-it.org - Wikipedia.
 
(2 versioni intermedie di uno stesso utente non sono mostrate)
Riga 1: Riga 1:
Il ''ToolTip'' è una finestrina, associata ad un Controllo, che viene mostrata quando il puntatore del mouse sta fermo sul Controllo medesimo per alcuni secondi di seguito. Il ''ToolTip'' resta a sua volta visibile per circa 10 secondi. E' possibile farlo chiudere anticipatamente.
+
Il ''ToolTip'' è una finestrina, associata ad un Controllo grafico, che viene mostrata quando il puntatore del mouse sta fermo sul Controllo medesimo per alcuni secondi di seguito. Il ''ToolTip'' resta a sua volta visibile per circa 10 secondi. E' possibile farlo chiudere anticipatamente.
  
Nell'esempio seguente il ''ToolTip'' è associato ad un ''Button'' posto sul ''Form'', e sarà eliminato dopo soli 4 secondi dall'entrata del puntatore del mouse nel ''Button'' (si porrà sul ''Form'' anche l'Oggetto ''Timer'':
+
Nell'esempio seguente il ''ToolTip'' è associato ad un ''Button'' posto sul ''Form'', e sarà eliminato dopo soli 4 secondi dall'entrata del puntatore del mouse nel ''Button'':
 +
Private Timer1 As Timer
 
  Private b As Byte   
 
  Private b As Byte   
 
        
 
        
Riga 9: Riga 10:
 
   Button1.Tooltip = "Testo qualsiasi"
 
   Button1.Tooltip = "Testo qualsiasi"
 
   
 
   
   With Timer1
+
   With Timer1 = New Timer As "Timer1"
 
   .delay = 1000   
 
   .delay = 1000   
 
   .Start   
 
   .Start   
Riga 19: Riga 20:
 
  Public Sub Button1_Leave()
 
  Public Sub Button1_Leave()
 
   
 
   
 +
  Timer1.Stop
 
   b = 0
 
   b = 0
 
   
 
   
Riga 26: Riga 28:
 
  Public Sub Timer1_Timer()   
 
  Public Sub Timer1_Timer()   
 
   
 
   
  Inc b
 
 
   Me.Title = b
 
   Me.Title = b
 
   
 
   
  <FONT color=#006400>' ''Fa durare il "ToolTip" soltanto 4 secondi:''</font>
+
  <FONT color=gray>' ''Fa durare il "ToolTip" soltanto 4 secondi:''</font>
 
   If b == 4 Then
 
   If b == 4 Then
 
     Timer1.Stop
 
     Timer1.Stop
  <FONT color=#006400>' ''Annulla il "ToolTip", assegnandogli valore stringa "Null":''</font>
+
  <FONT color=gray>' ''Annulla il "ToolTip", assegnandogli valore stringa "Null":''</font>
 
     Button1.Tooltip = Null
 
     Button1.Tooltip = Null
    b = 0
 
 
   Endif
 
   Endif
 +
 +
  Inc b
 
   
 
   
 
  End
 
  End
 
Tale codice è ovviamente utile per aumentare o comunque più in generale per impostare la durata della comparsa del ''ToolTip''.
 
Tale codice è ovviamente utile per aumentare o comunque più in generale per impostare la durata della comparsa del ''ToolTip''.

Versione attuale delle 11:50, 18 ott 2024

Il ToolTip è una finestrina, associata ad un Controllo grafico, che viene mostrata quando il puntatore del mouse sta fermo sul Controllo medesimo per alcuni secondi di seguito. Il ToolTip resta a sua volta visibile per circa 10 secondi. E' possibile farlo chiudere anticipatamente.

Nell'esempio seguente il ToolTip è associato ad un Button posto sul Form, e sarà eliminato dopo soli 4 secondi dall'entrata del puntatore del mouse nel Button:

Private Timer1 As Timer
Private b As Byte  
     

Public Sub Button1_Enter()

 Button1.Tooltip = "Testo qualsiasi"

 With Timer1 = New Timer As "Timer1"
  .delay = 1000  
  .Start  
 End With  
     
End


Public Sub Button1_Leave()

 Timer1.Stop
 b = 0

End


Public Sub Timer1_Timer()  

 Me.Title = b

' Fa durare il "ToolTip" soltanto 4 secondi:
 If b == 4 Then
   Timer1.Stop
' Annulla il "ToolTip", assegnandogli valore stringa "Null":
   Button1.Tooltip = Null
 Endif

 Inc b

End

Tale codice è ovviamente utile per aumentare o comunque più in generale per impostare la durata della comparsa del ToolTip.