Chiudere un ToolTip anticipatamente: differenze tra le versioni

Da Gambas-it.org - Wikipedia.
Vai alla navigazione Vai alla ricerca
Nessun oggetto della modifica
Nessun oggetto della modifica
 
(10 versioni intermedie di uno stesso utente non sono mostrate)
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'':
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'', impostando nell'IDE di Gambas il suo ritardo a ms 1, affinché la sua ''partenza'' sia immediata):
Private Timer1 As Timer
  '''Private''' a As Byte   
  Private b As Byte   
        
        
   
   
  '''Public''' Sub Form_Open()   
  Public Sub Button1_Enter()
  Button1.Tooltip = "Testo qualsiasi"
  With Timer1 = New Timer As "Timer1"
  .delay = 1000 
  .Start 
  End With  
        
        
  Button1.Tooltip = "Testo qualsiasi"
End
   
   
  '''End'''
  Public Sub Button1_Leave()
   
   
  Timer1.Stop
  b = 0
   
   
  '''Public''' Sub Button1_Enter()
  End
   
   
<FONT color=#006400>' ''Ripristiniamo il "ToolTip", altrimenti non sarebbe possibile farlo mostrare una seconda volta:''</font>
    Button1.Tooltip = "Testo qualsiasi"
   
   
Public Sub Timer1_Timer() 
   
   
  With Timer1 
  Me.Title = b
    .delay = 1000 
    .Start 
  End With 
     
'''End'''
     
   
   
  '''Public''' Sub Timer1_Timer() 
  <FONT color=gray>' ''Fa durare il "ToolTip" soltanto 4 secondi:''</font>
     
  If b == 4 Then
  Inc a  
    Timer1.Stop
     
  <FONT color=gray>' ''Annulla il "ToolTip", assegnandogli valore stringa "Null":''</font>
  If a = 4 Then
    Button1.Tooltip = Null
  Endif
   
   
<FONT color=#006400>' ''Annulliamo il "ToolTip", assegnandogli valore stringa "Null":''</font>
  Inc b
    Button1.Tooltip = Null
    a = 0
   
   
  Endif
End
 
Tale codice è ovviamente utile per aumentare o comunque più in generale per impostare la durata della comparsa del ''ToolTip''.
'''End'''

Versione attuale delle 11: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.

Estratto da "https://www.gambas-it.org/wiki/index.php?title=Chiudere_un_ToolTip_anticipatamente&oldid=39467"