[RISOLTO] pulsante mouse TENUTO premuto e semplice click

[allegfede]

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 .....

Codice: [Seleziona]

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?

[allegfede]

piu' o meno risolto:
http://www.gambas-it.org/smf/index.php?topic=1821.0

Codice: [Seleziona]

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

[simo97]

usa una spin box....

non so che ci devi fare ma sarebbe ideale...

[vuott]

usa una spin box....

non so che ci devi fare ma sarebbe ideale...

...ma se uno non volesse utilizzarla al posto del Button ?

[simo97]

allora ci si mette e scrive un pò di codice....

io ora sto "biastimando" con i database/gridbox etc...
ovviamente potrei buttar giù qualcosa....