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

Versione delle 12:41, 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()

 Timer1.Start

End

Public Sub Button1_MouseUp()

 Timer1.Stop

End

Public Sub Timer1_Timer()

 Inc i
 Print i

End