visual basic 6.0 question! need reply asap! thx..

[bokisnotageek]

Hello Forum,
I have a simple (I hope) question. When I press a command button, I would like the function it is programmed to do to repeat as long as the button is click and held. I can't seem to find a function to do this.
Thanks for the help.

[dummy_c]

Problema ko rin ito nuon. Dahil na din sa kulang na time para matuto sa VB. Instead gumamit nlang ako ng timer to check if the button is pressed.


Note:
Kung ako sayo huwag ka gumamit ng salitang ASAP kasi parang minamadali mo sila dito. Hindi ka tuloy na sagotan ng mga masters.

[alyas]

Maski sa VB 2010 walang ganyang event.  The nearest thing you can do is make it a click on click off button.

Edit:  Pwede din ata .... sa loob ng loop mo for the button click event, pwede ka gumawa ng checking if the button is still clicked or not.

[alyas]

Nag-aaral din ako ng Visual Basic, VB2010 nga lang.

Eto siguro masmadaling gawin.

Subukan mo gumamit ng button1.keydown at button1.keyup event handler.  The button1.keydown event will start your routine and the button1.keyup will stop your routine.  Di ko lang alam kung may ganyan din sa VB6.

[dummy_c]

Nag-aaral din ako ng Visual Basic, VB2010 nga lang.

Eto siguro masmadaling gawin.

Subukan mo gumamit ng button1.keydown at button1.keyup event handler.  The button1.keydown event will start your routine and the button1.keyup will stop your routine.  Di ko lang alam kung may ganyan din sa VB6.

Pwede hoh ba makapagbigay ka ng kunting sample code kung paano mo ginawa master.. Thanks.

[alyas]

Pwede hoh ba makapagbigay ka ng kunting sample code kung paano mo ginawa master.. Thanks.

Mali pala, hindi gumagana sa command button .... sa keys pala sa keyboard yun gumagana (yung keyup at keydown).

[dummy_c]

Mali pala, hindi gumagana sa command button .... sa keys pala sa keyboard yun gumagana (yung keyup at keydown).

Yah tina try ko nga hindi gagana,hehe.. Anyways salamat po.

[NanotecH]

@ts, possible yan kung gagamitan ng WithEvents, RaiseEvent sa class module...

[overmind]

sister, try mo gamitin yung MouseDown and MouseUp events ng command button..

sample program: gawa ka ng 1 textbox and 1 command button
- when clicked a function that counts 1 to 30000 in an endless loop will appear on the textbox and will stop after the button is released

<code>
Dim boolx As Boolean

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
boolx = True
test1
End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
boolx = False
End Sub

Private Sub test1()
Dim xx As Integer
Do While boolx = True
    xx = xx + 1
    Text1.Text = xx
    If xx = 30000 Then xx = 0
    DoEvents
Loop
End Sub

</code>

[7_SeVeN_7]

spam!