Differenze tra le versioni di "Reiterare una procedura quando il tasto del mouse viene tenuto premuto su un Controllo"

Da Gambas-it.org - Wikipedia.
(Creata pagina con "Mostriamo un semplice codice, con il quale reiterare una procedura usando il ''Timer'', quando il tasto del mouse viene tenuto premuto su un ''Controllo'', in questo caso su u...")
 
 
(Una versione intermedia di uno stesso utente non è mostrata)
Riga 5: Riga 5:
 
  Public Sub Button1_MouseDown()
 
  Public Sub Button1_MouseDown()
 
   
 
   
−
   Timer1.Start
+
   If Not Timer1.Enabled Then Timer1.Start
 
   
 
   
 
  End
 
  End
Riga 19: Riga 19:
 
   Inc i
 
   Inc i
 
   Print i
 
   Print i
 +
 +
End
 +
 +
In quest'altro esempio, se si premerà sulla metà a destra del ''Button'', ci sarà un incremento della variabile globale "i"; se si premerà invece sulla metà sinistra, ci sarà un decremento di detta variabile:
 +
Private i As Integer
 +
Private x As Short
 +
 +
 +
Public Sub Button1_MouseDown()
 +
 +
  If Not Timer1.Enabled Then Timer1.Start
 +
 +
  x = Mouse.X
 +
 +
End
 +
 +
Public Sub Button1_MouseUp()
 +
 +
  Timer1.Stop
 +
 +
End
 +
 +
Public Sub Timer1_Timer()
 +
 +
  If x > Button1.W / 2 Then
 +
    Inc i
 +
  Else
 +
    Dec i
 +
  Endif
 +
 +
  Me.Title = Cstr(i)
 
   
 
   
 
  End
 
  End

Versione attuale delle 14:57, 15 giu 2023

Mostriamo un semplice codice, con il quale reiterare una procedura usando il Timer, quando il tasto del mouse viene tenuto premuto su un Controllo, in questo caso su un Button. 

Private i As Integer


Public Sub Button1_MouseDown()

 If Not Timer1.Enabled Then Timer1.Start

End

Public Sub Button1_MouseUp()

 Timer1.Stop

End

Public Sub Timer1_Timer()

 Inc i
 Print i

End

In quest'altro esempio, se si premerà sulla metà a destra del Button, ci sarà un incremento della variabile globale "i"; se si premerà invece sulla metà sinistra, ci sarà un decremento di detta variabile: 

Private i As Integer
Private x As Short


Public Sub Button1_MouseDown()

 If Not Timer1.Enabled Then Timer1.Start

 x = Mouse.X

End

Public Sub Button1_MouseUp()

 Timer1.Stop

End

Public Sub Timer1_Timer()

 If x > Button1.W / 2 Then 
   Inc i
 Else 
   Dec i
 Endif

 Me.Title = Cstr(i) 

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