Is vb stupid or is it me?

[joey o.]

Is vb stupid or is it me?Is vb stupid or is it me? Why aren't these actions interpreted correctly when you click away on the mouse? This is killing me - how do I remedy this!!!

Code:

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Debug.Print "mouse down"
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Debug.Print "mouse up"
End Sub

It prints this in the debug window:
mouse down
mouse up
mouse up
mouse down
mouse up
mouse up
mouse down
mouse up
mouse up
mouse down
mouse up
mouse up

[YoungBuck]

It appears that VB is stupid, here is a solution however...

Private IsDown As Boolean
 
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
IsDown = True
Debug.Print "mouse down"
End Sub
 
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If IsDown = True Then
    Debug.Print "mouse up"
    IsDown = False
End If
End Sub

[joey o.]

Thanks for the vote of confidence, however I was hoping for a configuration fix or something. The code does the trick but leads me to another question and the urge to blow off some steam; If I have to write code to validate this procedure that was part of the vb package would I be better off using the API to get the button state which probably works without having to validate it in code? If that is in fact the case will I gain performance by using the API across the board and writing my own procedures?

[MarkT]

What you are seeing is normal for a double click of the mouse. I have added a few more debug statements to show what is the normal sequence of events when you click on a picture box.

Private Sub Picture1_Click()
Debug.Print "Click"
End Sub
 
Private Sub Picture1_DblClick()
Debug.Print "Double Click"
End Sub
 
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Debug.Print
Debug.Print "Mouse down"
End Sub
 
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Debug.Print "Mouse Up"
End Sub