vb 屏蔽右键

来源：百度知道 编辑：UC知道 时间：2024/06/16 03:40:55
有一个image1控件，代码只有end，也就是说，单击它会退出程序，但是右击它也会退出，怎样屏蔽！

不用屏蔽吧，太麻烦了，检验button为多少就行

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
End
End If
End Sub

这里代码的意思是：只有按下左键才执行操作，否则不执行。代码简短实用，也取代了屏蔽右键的功能：

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'只要在Picture1的鼠标事件MouseDown里加入以下代码就可以，具体功能看注释：
If Button = 1 Then '如果 按下鼠标左键，那么。 在这里1就是左键 2就是右键 4就是中键
End '退出
Else '否则
'这里就是否则的内容
End If '结束如果
End Sub