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.