VB怎么控制Picture1_MouseMove事件的发生与不发生

yarui0301 2008-03-25 08:13:33

在我单击command1时候，我要用到Picture1_MouseMove事件获得的X值和Y值，但是在我单击command2时候我不希望Picture1_MouseMove事件发生，该怎么设置呢？
我的意思是当我单击command2之后，即便鼠标不小心在Picture1中移动了，也不触发任何事件
呵呵，我不知道自己说清楚自己的意思了没？？
恳求高手相助，万分感谢^_^

...全文

144 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

yarui0301 2008-03-26

打赏
举报

谢谢

嗷嗷叫的老马 2008-03-26

打赏
举报

[Quote=引用 1 楼 supergreenbean 的回复:]
设个标志就好

Private m_fFlag As Boolean

Private Sub Command1_Click()
m_fFlag = True
End Sub

Private Sub Command2_Click()
m_fFlag = False
End Sub

Private Sub Form_Load()
m_fFlag = False
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If m_fFlag Then
Debug.Print X, Y
End If
End…
[/Quote]

supergreenbean 2008-03-25

打赏
举报

设个标志就好

Private m_fFlag As Boolean

Private Sub Command1_Click()
m_fFlag = True
End Sub

Private Sub Command2_Click()
m_fFlag = False
End Sub

Private Sub Form_Load()
m_fFlag = False
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If m_fFlag Then
Debug.Print X, Y
End If
End Sub