https://foro.gambas-es.org/viewtopic.php?f=1&t=2413&p=13740#p13740
-----------------------------------
jsbsan
Sabado, 09 Junio 2012, 21:56

Re: Boton Del Raton
-----------------------------------
Tururu:

[quote]necesito "algo" [/quote]
Creo que ese algo es un control timer y una variable publica que controle si se ha pulsado el boton o se ha dejado de pulsar el boton del mouse....

Por ejemplo, yo he conseguido el efecto que quieres con este código:
[code linenumbers=false syntax=gambas]' Gambas class file

Public activado As Boolean

Public Sub _new()

End

Public Sub Form_Open()

End




Public Sub Timer1_Timer()
If activado = True Then
ValueBox1.value += 40
Endif
End

Public Sub ValueBox1_MouseDown()
  activado = True
  Timer1.Start()
  
Print "boton bajado,pulsado"
End

Public Sub ValueBox1_MouseUp()

      activado = False
      Print "boton arriba,dejado de pulsar"
    Timer1.Stop()

End[/code]

Te adjunto el ejemplo...

Espero que te sirva.

Saludos


