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