禁用鼠标右键单击图像控件VB6

好的，搜索了一个小时后，我仍然没有找到正确的答案。根据我们的测试人员的说法，我只想禁用右键单击我的按钮，因为它正在创建一个bug。我不知道VB6是否能做到这一点，但如果VB6不能做到这一点，有没有可能的方法？好的，更具体地说，这里是我的例子

“我在某处发现了这个

Private Sub cmdExportCSV_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   If Button = vbRightButton Then
       'Do Nothing
   End If
End Sub


'Then I have here
Private Sub cmdExportCSV_Click()
   'Some logic here
End Sub

---

但是，当我单击鼠标右键时，cmdExportCSV_click（）仍在执行其中的代码。

那么类似的内容如何（基于您的代码）：

---

我没有运行这个或任何东西，但它应该可以工作。

我已经解决了自己的问题

从这个

Private Sub cmdExportCSV_Click()
   If m_mouseButton = vbRightButton Then
       'Do Nothing
       Exit Sub
   End If
   'Some logic here
End Sub

对此

Private Sub cmdExportCSV_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button And vbRightButton Then
        Exit Sub
    End If
   'Some logic here
End Sub

就这样！VB6不允许直接禁用鼠标右键和鼠标左键。我的解决方案只是在用户单击鼠标右键时退出事件

无论如何，我很抱歉，因为我发现系统使用的是asImageCommand而不是CommandButton，因此当您声明类似于“Private Sub cmdExportCSV_Click（）”的事件时，当您单击鼠标右键和鼠标左键时，将触发asImageCommand控件。但是如果您使用的是CommandButton，它只会在您单击左键时触发，而不允许您使用鼠标右键

---

我想我必须更新我问题的标题。

您能指定您使用的按钮类型吗？VB6命令按钮不可点击。你写的

If Button=vbRightButton

我想你的意思是

If m_mouseButton=vbRightButton

是的，你是正确的。我编辑以修复这个问题。谢谢@syntaxerror，请让我们知道这是否解决了您的问题。

Private Sub cmdExportCSV_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button And vbRightButton Then
        Exit Sub
    End If
   'Some logic here
End Sub