Question

在vb6中如何不让mousemove事件反复触发？

在vb6中如何不让mousemove事件反复触发？就是进入控件执行一次，然后再移动鼠标也不执行了。谢！

Answer 1

在此窗体代码的上方声明通用变量，例如：
Private i As Integer
在窗体的Load事件中为声明的通用变量赋值
i = 0
在mousemove事件的开始写代码如下：
i = i + 1
If i > 1 Then Exit Sub
这样，当控件初次触发mousemove事件时，i值为1，执行代码；再次触发i值大于1，就会终止代码。。

追问

对不起，我表达有误，应该是像ENTER事件一样的功能，谢谢

追答

嗯，看来我也只能说声抱歉了。。搞不明白你是啥意思~~

追问

就是鼠标进入后触发，然后鼠标在控件上移动时不触发，再次进入触发，鼠标在控件上移动时不触发，谢谢！

追答

1、你指的控件是什么控件？2、鼠标进入是鼠标移动到控件上吗？

追问

控件比如picture控件，是鼠标移动到控件上，谢

追答

窗体要求：至少包含一个Picture1控件。
图像来源：D:\img文件夹下的1.jpg、2.jpg、3.jpg......9.jpg等9个文件。
代码结果：当鼠标移动到Picture1控件上时更换一次图像（图像之间循环播放）。
代码如下：
Private i, j As Integer
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
i = 1 ' 鼠标移动到窗体（即移出Picture1控件范围）时重新给 i 赋值
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If i > 1 Then Exit Sub ' 保证鼠标每次移动到Picture1控件上只执行一次代码
i = i + 1
If j < 9 Then ' 实现文件名循环
j = j + 1
Else
j = 1
End If
Me.Picture1.Picture = LoadPicture("d:\img\" & j & ".jpg") ' 给Picture1控件指定图像
End Sub

Answer 2

荷石傲逢乳司棕存励歼