Differenze tra le versioni di "Chiudere un ToolTip anticipatamente"
Da Gambas-it.org - Wikipedia.
Riga 26: | Riga 26: | ||
<FONT color=#006400>' ''Fa durare il "ToolTip" soltanto 4 secondi:''</font> | <FONT color=#006400>' ''Fa durare il "ToolTip" soltanto 4 secondi:''</font> | ||
If a == 4 Then | If a == 4 Then | ||
− | |||
<FONT color=#006400>' ''Annulla il "ToolTip", assegnandogli valore stringa "Null":''</font> | <FONT color=#006400>' ''Annulla il "ToolTip", assegnandogli valore stringa "Null":''</font> | ||
Button1.Tooltip = Null | Button1.Tooltip = Null | ||
b = 0 | b = 0 | ||
− | |||
Endif | Endif | ||
Versione delle 04:41, 9 ott 2023
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() With Timer1 .delay = 1000 .Start End With End Public Sub Timer1_Timer() ' Fa durare il "ToolTip" soltanto 4 secondi: If a == 4 Then ' Annulla il "ToolTip", assegnandogli valore stringa "Null": Button1.Tooltip = Null b = 0 Endif Inc b End