Chiudere un ToolTip 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:

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.