Chiudere un ToolTip anticipatamente: differenze tra le versioni
Vai alla navigazione
Vai alla ricerca
Nessun oggetto della modifica |
Nessun oggetto della modifica |
||
| Riga 1: | Riga 1: | ||
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. | 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'' (si porrà sul ''Form'' anche l'Oggetto ''Timer'': | 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'': | ||
Versione delle 11:43, 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 (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.