la mia idea era intercettare il semplice click (mouse giu' e su') per incrementare/decrementaredi un minuto e poi alla pressione continuata del tasto (senza rilasciare) aumentare in modo veloce di secondo in secondo ..... ma ovviamente senza risultato .....
Public Sub Button_Add_Click()
MaskBox_inizio.Text = DateAdd(CDate(MaskBox_inizio.Text), gb.Minute, 1)
End
Public Sub Button_Remove_Click()
MaskBox_inizio.Text = DateAdd(CDate(MaskBox_inizio.Text), gb.Minute, -1)
End
Public Sub Button_Add_MouseDown()
MaskBox_inizio.Text = DateAdd(CDate(MaskBox_inizio.Text), gb.Second, 1)
End
Public Sub Button_Remove_MouseDown()
MaskBox_inizio.Text = DateAdd(CDate(MaskBox_inizio.Text), gb.Second, -1)
End
come potrei implementare una feature del genere?
piu' o meno risolto:
http://www.gambas-it.org/smf/index.php?topic=1821.0
Controllo As Integer
Public Sub Button_Add_MouseDown()
Do While Controllo > -1
MaskBox_inizio.Text = DateAdd(CDate(MaskBox_inizio.Text), gb.Second, 1)
Controllo = Controllo + 1
'Wait 0.05 ' WAIT mi serve, altrimenti non riesco a bloccare il ciclo cliccando.
If controllo < 50 Then
Wait 0.1
Else
Wait 0.01
Endif
Loop
Controllo = 0
End
Public Sub Button_Remove_MouseDown()
Do While Controllo > -1
MaskBox_inizio.Text = DateAdd(CDate(MaskBox_inizio.Text), gb.Second, -1)
Controllo = Controllo + 1
'Wait 0.05 ' WAIT mi serve, altrimenti non riesco a bloccare il ciclo cliccando.
If controllo < 50 Then
Wait 0.1
Else
Wait 0.01
Endif
Loop
Controllo = 0
End
Public Sub Button_Add_MouseUp()
Controllo = -1
End
Public Sub Button_Remove_MouseUp()
Controllo = -1
End