Differenze tra le versioni di "Chiudere un ToolTip anticipatamente"

Da Gambas-it.org - Wikipedia.
 
(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, 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'', impostando nell'IDE di Gambas il suo ritardo a ms 1, affinché la sua ''partenza'' sia immediata):
+
  Private b As Byte   
−
  '''Private''' a As Byte   
 
 
        
 
        
 
   
 
   
−
  '''Public''' Sub Form_Open()   
+
  Public Sub Button1_Enter()
 +
 +
  Button1.Tooltip = "Testo qualsiasi"
 +
 +
  With Timer1 
 +
  .delay = 1000 
 +
  .Start 
 +
  End With  
 
        
 
        
−
  Button1.Tooltip = "Testo qualsiasi"
+
End
 
   
 
   
−
'''End'''
 
 
   
 
   
 +
Public Sub Button1_Leave()
 
   
 
   
−
'''Public''' Sub Button1_Enter()
+
  b = 0
−
     
 
−
  With Timer1 
 
−
    .delay = 1000 
 
−
    .Start 
 
−
  End With 
 
−
     
 
−
'''End'''
 
−
     
 
 
   
 
   
−
  '''Public''' Sub Timer1_Timer() 
+
  End
−
     
 
−
  Inc a 
 
−
     
 
−
  If a = 4 Then
 
 
   
 
   
−
<FONT color=#006400>' ''Annulliamo il "ToolTip", assegnandogli valore stringa "Null":''</font>
 
−
    Button1.Tooltip = Null
 
−
    a = 0
 
 
   
 
   
−
  <FONT color=#006400>' ''Ripristiniamo il "ToolTip", altrimenti non sarebbe possibile farlo mostrare una seconda volta:''</font>
+
  Public Sub Timer1_Timer() 
−
    Button1.Tooltip = "Testo qualsiasi"
 
 
   
 
   
−
  Endif
+
  Inc b
 +
  Me.Title = b
 
   
 
   
 +
<FONT color=#006400>' ''Fa durare il "ToolTip" soltanto 4 secondi:''</font>
 +
  If b == 4 Then
 +
    Timer1.Stop
 +
<FONT color=#006400>' ''Annulla il "ToolTip", assegnandogli valore stringa "Null":''</font>
 +
    Button1.Tooltip = Null
 +
    b = 0
 +
  Endif
 
   
 
   
−
  <FONT color=#006400>' ''In alternativa, possiamo utilizzare a proprietà booleana ".ShowTooltips" della Classe "Application",''
+
  End
−
' ''tenendo presente, però, che quella proprietà impedisce il mostrarsi di ogni ToolTip eventualmente previsto nel codice.''
+
Tale codice è ovviamente utile per aumentare o comunque più in generale per impostare la durata della comparsa del ''ToolTip''.
−
' ''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'''</font>
 
−
     
 
−
'''End'''
 

Versione attuale delle 08:05, 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 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.

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