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...") |
|||
| Riga 5: | Riga 5: | ||
Public Sub Button1_MouseDown() | Public Sub Button1_MouseDown() | ||
| − | Timer1.Start | + | If Not Timer1.Enabled Then Timer1.Start |
End | End | ||
Versione delle 14:30, 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
