Differenze tra le versioni di "Chiudere un ToolTip anticipatamente"
Da Gambas-it.org - Wikipedia.
| (Una versione intermedia di uno stesso utente non è mostrata) | |||
| Riga 1: | Riga 1: | ||
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. | 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'' | + | 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 | Private b As Byte | ||
| Riga 9: | Riga 10: | ||
Button1.Tooltip = "Testo qualsiasi" | Button1.Tooltip = "Testo qualsiasi" | ||
| − | With Timer1 | + | With Timer1 = New Timer As "Timer1" |
.delay = 1000 | .delay = 1000 | ||
.Start | .Start | ||
| Riga 19: | Riga 20: | ||
Public Sub Button1_Leave() | Public Sub Button1_Leave() | ||
| + | Timer1.Stop | ||
b = 0 | b = 0 | ||
| Riga 26: | Riga 28: | ||
Public Sub Timer1_Timer() | Public Sub Timer1_Timer() | ||
| − | |||
Me.Title = b | Me.Title = b | ||
| − | <FONT color= | + | <FONT color=gray>' ''Fa durare il "ToolTip" soltanto 4 secondi:''</font> |
If b == 4 Then | If b == 4 Then | ||
Timer1.Stop | Timer1.Stop | ||
| − | <FONT color= | + | <FONT color=gray>' ''Annulla il "ToolTip", assegnandogli valore stringa "Null":''</font> |
Button1.Tooltip = Null | Button1.Tooltip = Null | ||
| − | |||
Endif | Endif | ||
| + | |||
| + | Inc b | ||
End | End | ||
Tale codice è ovviamente utile per aumentare o comunque più in generale per impostare la durata della comparsa del ''ToolTip''. | Tale codice è ovviamente utile per aumentare o comunque più in generale per impostare la durata della comparsa del ''ToolTip''. | ||
Versione attuale delle 10: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.
