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, 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' | 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() | |||
<FONT color=#006400>' ''Fa durare il "ToolTip" soltanto 4 secondi:''</font> | |||
If a == 4 Then | |||
<FONT color=#006400>' '' | <FONT color=#006400>' ''Annulla il "ToolTip", assegnandogli valore stringa "Null":''</font> | ||
Button1.Tooltip = Null | Button1.Tooltip = Null | ||
b = 0 | |||
Endif | Endif | ||
Inc b | |||
End | |||
Versione delle 05:40, 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