Левая и правая кнопка мыши - VB

Формулировка задачи:

Напомните пожалуйста код, который запрещает клик по объекту правой кнопкой мыши. К примеру:

Private Sub FlexGrid_DblClick()
    Call cmdEditRecord_Click
End Sub

Срабатывает на обоих варианта клика. Мне надо именно в FlexGrid_DblClick и ИМЕННО 1 кнопкой мыши, а не второй, вторая пустая, а не в процедуре нажатия кнопки.

Решение задачи: «Левая и правая кнопка мыши»

textual
                            Листинг программы 
                        

                            Dim But As Long
Private Sub HFlexGrid_DblClick()
    If But = vbLeftButton Then Call cmdEditRecord_Click
End Sub
Private Sub HFlexGrid_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    But = Button
End Sub
                        

Оцени полезность:

10 голосов , оценка 3.6 из 5

Похожие ответы