Chiudere un ToolTip anticipatamente

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.

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:

Private b As Byte  
     

Public Sub Form_Open()  
     
 Button1.Tooltip = "Testo qualsiasi"

End


Public Sub Button1_Enter()

' Ripetiamo il testo "ToolTip", altrimenti non sarà possibile farlo mostrare nuovamente:
 Button1.Tooltip = "Testo qualsiasi"

 With Timer1  
  .delay = 1000  
  .Start  
 End With  
     
End


Public Sub Button1_Leave()

 b = 0

End


Public Sub Timer1_Timer()  

 Inc b

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

 Me.Title = b

End

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