Pulsante mantenuto premuto

[kicco]

 
Conoscete un modo più furbo per reiterare una operazione quando il pulsante viene tenuto premuto?

Codice: [Seleziona]

Private i As Integer
Private bb As Boolean

Public Sub Button1_MouseDown()

    bb = True
    Inc i
    Print i
    Timer1.Start

End

Public Sub Button1_MouseUp()

    bb = False

End


Public Sub Timer1_Timer()

    If bb = True Then Button1_MouseDown

End

[vuott]

...sebbene non risponda pienamente alla tua domanda, io modificherei il tuo codice un po' così:

Codice: [Seleziona]

Private i As Integer
Private bb As Boolean = True

Public Sub Button1_MouseDown()

  Timer1.Start

End

Public Sub Button1_MouseUp()

  bb = False

End

Public Sub Timer1_Timer()

  If Not bb Then Timer1.Stop
    
  Inc i
  Print i

End

[vuott]

...o migliorando ancora la mia modifica:

Codice: [Seleziona]

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

[kicco]

Grazie vuott!