BUG: Extra Click Event If Double-Click When Mouse Button Down (77738)

MORE INFORMATION

The following code demonstrates that an extra Click event is generated when double-clicking one mouse button while holding the other down.

Steps to Reproduce Problem

1. Start a new project in Visual Basic.
2. Double-click the form or press the F7 key to bring up the code window. Enter the following code in the Form_Click event procedure for Form1:

      Private Sub Form_Click ()
         Print "Click"
      End Sub

3. Enter the following code in the Form_DblClick event procedure:

      Private Sub Form_DblClick ()
         Print "DblClick"
      End Sub

4. Enter the following code in the Form_MouseDown event procedure:

      ' Enter the following two lines as one, single line:
      Private Sub Form_MouseDown(Button As Integer, Shift As Integer,
         X As Single, Y As Single)
         Print "Down"; Button
      End Sub

5. Enter the following code in the Form_MouseUp event procedure:

      ' Enter the following two lines as one, single line:
      Private Sub Form_MouseUp(Button As Integer, Shift As Integer,
         X As Single, Y As Single)
         Print "Up"; Button
      End Sub

6. From the Run menu, choose Start.
7. Using the right mouse button, double-click anywhere on the form. The output to Form1 should be:

   Down 2
   Up 2
   Click
   DblClick
   Up 2

8. Press and hold the left mouse button. The output to Form1 should be:

   Down 1

9. While holding the left mouse button down, double-click with the right mouse button. The output to Form1 should be:

   Down 2
   Up 2
   Click
   DblClick
   Up 2
   Click

The last Click was not generated when double-clicking with the right mouse button alone (as illustrated in step 8 above). This additional call to the Click event procedure is not expected behavior and is a problem with Visual Basic. The problem also occurs when the right mouse button is held down and you double-click the left mouse button.