Differenze tra le versioni di "Chiudere un ToolTip anticipatamente"
Da Gambas-it.org - Wikipedia.
| (5 versioni intermedie di uno stesso utente non sono mostrate) | |||
| Riga 5: | Riga 5: | ||
| − | Public Sub | + | Public Sub Button1_Enter() |
| − | + | ||
Button1.Tooltip = "Testo qualsiasi" | Button1.Tooltip = "Testo qualsiasi" | ||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
With Timer1 | With Timer1 | ||
| Riga 20: | Riga 15: | ||
End | End | ||
| − | + | ||
| + | |||
| + | Public Sub Button1_Leave() | ||
| + | |||
| + | b = 0 | ||
| + | |||
| + | End | ||
| + | |||
Public Sub Timer1_Timer() | Public Sub Timer1_Timer() | ||
| + | |||
| + | Inc b | ||
| + | Me.Title = b | ||
<FONT color=#006400>' ''Fa durare il "ToolTip" soltanto 4 secondi:''</font> | <FONT color=#006400>' ''Fa durare il "ToolTip" soltanto 4 secondi:''</font> | ||
| − | If | + | If b == 4 Then |
| + | Timer1.Stop | ||
<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 | |
| − | + | b = 0 | |
| − | + | Endif | |
| − | |||
| − | |||
End | End | ||
| + | Tale codice è ovviamente utile per aumentare o comunque più in generale per impostare la durata della comparsa del ''ToolTip''. | ||
Versione attuale delle 08:05, 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 Button1_Enter()
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
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
b = 0
Endif
End
Tale codice è ovviamente utile per aumentare o comunque più in generale per impostare la durata della comparsa del ToolTip.
