Chiudere un ToolTip anticipatamente: differenze tra le versioni
Vai alla navigazione
Vai alla ricerca
(Nuova pagina: Il ''ToolTip'' è una finestrina che viene mostrata quando il puntatore del mouse sta sul Controllo per alcuni secondi di seguito. Il ''ToolTip'' resta a sua volta visibile per circa 1...) |
Nessun oggetto della modifica |
||
| Riga 31: | Riga 31: | ||
Endif | Endif | ||
<FONT color=#006400>' ''In alternativa, possiamo utilizzare a proprietà booleana ".ShowTooltips" della Classe "Application",'' | <FONT color=#006400>' ''In alternativa, possiamo utilizzare a proprietà booleana ".ShowTooltips" della Classe "Application",'' | ||
' ''tenendo presente, però, che quella proprietà impedisce il mostrarsi di ogni ToolTip eventualmente previsto nel codice.'' | ' ''tenendo presente, però, che quella proprietà impedisce il mostrarsi di ogni ToolTip eventualmente previsto nel codice.'' | ||
' ''Per consentire nuovamente l'apparire del "ToolTip" sarà, dunque, necessario poi reimpostare quella proprietà a "True":'' | ' ''Per consentire nuovamente l'apparire del "ToolTip" sarà, dunque, necessario poi reimpostare quella proprietà a "True":'' | ||
If a = 4 Then | '''If a = 4 Then''' | ||
<FONT color=#006400>' ''Impediamo il mostrarsi di ogni "ToolTip":'' | <FONT color=#006400>' ''Impediamo il mostrarsi di ogni "ToolTip" del programma:'' | ||
Application.ShowTooltips = False | '''Application.ShowTooltips = False''' | ||
a = 0 | '''a = 0''' | ||
Endif | '''Endif''' | ||
<FONT color=#006400>' ''Consentiamo nuovamente il mostrarsi di ogni "ToolTip":'' | <FONT color=#006400>' ''Consentiamo nuovamente il mostrarsi di ogni "ToolTip":'' | ||
Application.ShowTooltips = True | '''Application.ShowTooltips = True'''</font> | ||
'''End''' | '''End''' | ||
Versione delle 12:21, 18 feb 2013
Il ToolTip è una finestrina che viene mostrata quando il puntatore del mouse sta sul Controllo 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 sarà eliminato dopo soli 4 secondi (si porrà sul Form anche l'oggetto Timer, impostando il suo ritardo a ms 1, affinché la sua partenza sia immediata):
Private a As Byte
Public Sub Form_Open()
Button1.Tooltip = "Testo qualsiasi"
With Timer1
.delay = 1000
.Start
End With
End
Public Sub Timer1_Timer()
Inc a
If a = 4 Then
' Annulliamo il "ToolTip", assegnandogli valore stringa "Null":
Button1.Tooltip = Null
a = 0
' Ripristiniamo il "ToolTip", altrimenti non sarebbe possibile farlo mostrare una seconda volta:
Button1.Tooltip = "Testo qualsiasi"
Endif
' In alternativa, possiamo utilizzare a proprietà booleana ".ShowTooltips" della Classe "Application",
' tenendo presente, però, che quella proprietà impedisce il mostrarsi di ogni ToolTip eventualmente previsto nel codice.
' Per consentire nuovamente l'apparire del "ToolTip" sarà, dunque, necessario poi reimpostare quella proprietà a "True":
If a = 4 Then
' Impediamo il mostrarsi di ogni "ToolTip" del programma:
Application.ShowTooltips = False
a = 0
Endif
' Consentiamo nuovamente il mostrarsi di ogni "ToolTip":
Application.ShowTooltips = True
End