Differenze tra le versioni di "Chiudere un ToolTip anticipatamente"

Da Gambas-it.org - Wikipedia.
 
Riga 10: Riga 10:
 
   Button1.Tooltip = "Testo qualsiasi"
 
   Button1.Tooltip = "Testo qualsiasi"
 
   
 
   
   With Timer1
+
   With Timer1 = New Timer As "Timer1"
 
   .delay = 1000   
 
   .delay = 1000   
 
   .Start   
 
   .Start   

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.