【急】有没有人知道vb怎么判断是否在窗体上单击了鼠标右键 - vb吧

level 6

yinyouheng1234 楼主

2011年11月01日 06点11分 1

level 6

yinyouheng1234 楼主

有人知道吗，求助

2011年11月01日 06点11分 2

吧务

level 15

放飞希望，追逐梦想

if button =2 then [打酱油]

2011年11月01日 06点11分 3

level 6

yinyouheng1234 楼主

这个我试过了，不行，如果分别在click和mousedown事件内部加入print语句，就会出现后者事件执行了两次，先执行mousedown然后执行click

2011年11月01日 06点11分 4

吧务

level 15

放飞希望，追逐梦想

你想做什么呢

2011年11月01日 06点11分 5

level 6

yinyouheng1234 楼主

只要判断鼠标是否在窗体上右击了

2011年11月01日 06点11分 6

level 6

yinyouheng1234 楼主

你能实现么？

2011年11月01日 06点11分 7

level 13

sunshinebean

Option Explicit
Dim IsRight As Boolean
Private Sub Form_Click()
If IsRight = False Then MsgBox "click"
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
IsRight = False
ElseIf Button = 2 Then
IsRight = True
End If
End Sub

2011年11月01日 06点11分 8