How to check if the mousedown on a button has been released?

Question

I am trying to program a value in a 'txtpercent' text box to increment while an 'cmdIncrease' button is pressed with the left mousebutton.

I have used the mousedown event for the button to call a public 'doIncrement' function in a module:

Private Sub cmdIncrease_MouseDown(button As Integer, Shift As Integer, X As Single, Y As Single)
    IncMouseIsDown = True
        Call doIncrement
End Sub

Then when the mouseup event for the button is triggered a IncMouseIsDown = false is set:

Private Sub cmdIncrease_MouseUp(button As Integer, Shift As Integer, X As Single, Y As Single)
    IncMouseIsDown = False
End Sub

The 'doIncrement' function needs to continue increasing the 'txtpercent' value until the 'cmdIncrease' button is released.

However, the 'doIncrement' function never breaks out of the loop, and doesn't notice when the left mousebutton on the 'cmdIncrease' button is released. 

Public IncMouseIsDown As Boolean
Public IncMouseIsUp As Boolean

Public Sub doIncrement()
    Do
        If button = acLeftButton Then
            txtPercent = txtPercent + 1
        End If
    Loop While IncMouseIsDown
End Sub

Anyone have any ideas how I can get the do while loop to repeatedly check if the left mouse button on the 'cmdIncrease' button is still pressed?

Your help is much appreciated.

Thank you

Nath

Answer 1

The 'doIncrement' function needs to continue increasing the 'txtpercent' value until the 'cmdIncrease' button is released.

Hi Nath,

I do not know how to achieve this with a MouseDown event, but you could use a CommandButton, with its property AutoRepeat set to True.

Imb.

Answer 2

Hi Nath

Mouse button release and mouse button up should do the same thing. Below are some examples.

https://msdn.microsoft.com/en-us/library/system.windows.forms.control.mouseup(v=vs.110).aspx

https://msdn.microsoft.com/en-us/library/ms746645%28v=vs.85%29.aspx?f=255&MSPPError=-2147217396

Thanks

Ram

Answer 3

Thanks Imb.

I think the autorepeat is the way to go. It increments while the button is pressed.

However, I would like to see the value changing while the buttons pressed. 

With autorepeat, releasing the button suddenly shows a huge jump in the value.

Any ideas how I can get the txtPercent box to reflect the increasing autorepeat value?

Ram,

Trying the following produced a run-time error '424' Object required:

Public Sub doIncrement(button As Integer)
    
    Do
        If cmdIncrease.ButtonState = MouseButtonState.Pressed Then
            txtPercent = txtPercent + 1
            incmousedown = True
            ' If the button is released
        ElseIf cmdIncrease.ButtonState = MouseButtonState.Released Then
            incmousedown = False
        End If
        
    Loop While IncMouseIsDown

End Sub

Any suggestions?

Thanks

---

Nath

Answer 4

However, I would like to see the value changing while the buttons pressed. 

With autorepeat, releasing the button suddenly shows a huge jump in the value.

Hi Nath,

You can use the Click event of the CommandButton to increase the percent value by 1.

In combination with the AutoRepeat property of the CommandButton you would see a continuous changing of the percent value, as long as the button is pressed.

Imb.

Answer 5

Thank you Imb.

I needed to call the following 'Pause' function with an interval of 0.05 in the click event of the command button.

Now it works perfectly. I can now have a decent spin button on a continuous form, which wasn't possible with the spin button active x version.

Cheers.

Public Function Pause(NumberOfSeconds As Variant)
    On Error GoTo Error_GoTo

    Dim PauseTime As Variant
    Dim Start As Variant
    Dim Elapsed As Variant

    PauseTime = NumberOfSeconds
    Start = Timer
    Elapsed = 0
    Do While Timer < Start + PauseTime
        Elapsed = Elapsed + 1
        If Timer = 0 Then
            ' Crossing midnight
            PauseTime = PauseTime - Elapsed
            Start = 0
            Elapsed = 0
        End If
        DoEvents
    Loop

Exit_GoTo:
    On Error GoTo 0
    Exit Function
Error_GoTo:
    Debug.Print Err.Number, Err.Description, Erl
    GoTo Exit_GoTo
End Function

---

Nath