vb6中,MouseMove问题

[stf_smile]

vb6中,MouseMove事件的时候，图片总是一闪一闪的，如何解决？各位大师帮帮忙。

[帝企鹅已被占用]

代码？

[stf_smile]

Private Sub imgChufang_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call LoadImages(imgChufang, "aaa.gif")
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call LoadImages(imgChufang, "aaa1.gif")
End Sub
我的代码，各位大师，帮帮忙。

[帝企鹅已被占用]

你要干什么呢，一动就load？

[stf_smile]

有4张图片，图片都是放在那个Picture1上面的。

[stf_smile]

图片的鼠标移上去和鼠标离开切换图片，vb6里面没有鼠标离开事件，我就那样写了

[帝企鹅已被占用]

嗯， 知道你要什么了，我想下

[stf_smile]

谢谢了

[帝企鹅已被占用]

不一定是最好的方法，试试
Dim bln As Boolean

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If bln Then
Call LoadImages(imgChufang, "aaa.gif")
bln = False
End If
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Not bln Then
Call LoadImages(imgChufang, "aaa1.gif")
bln = True
End If
End Sub

[luofenghen]

给picturebox 一个范围坐标 鼠标在那个范围内就转换图片，移开就换回来

[贝隆]

[Quote=引用 5 楼 stf_smile 的回复:]
图片的鼠标移上去和鼠标离开切换图片，vb6里面没有鼠标离开事件，我就那样写了
[/Quote]

的确，VB6没有鼠标离开事件，但是鼠标离开了控件A后它会进入控件B啊，控件A和控件B的事件一起判断不就可以实现鼠标离开控件A的事件效果了？按我的理解给你提供一个例子，希望能帮助你：

Option Explicit
Dim bolInPic As Boolean
Private Sub Form_Load()
    bolInPic = False    '初始化设置，标记鼠标没有进入Picture1
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If bolInPic Then bolInPic = False    '标记鼠标没有进入Picture1
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Not bolInPic Then
        '添加你的图片处理软件，这样可以避免移动鼠标就载入图片的情况，大大的提高了程序流畅度
        
        
        bolInPic = True '标记鼠标进入Picture1
    End If
End Sub

[stf_smile]

Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Sub Command6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim MouseOver As Boolean
MouseOver = (0 <= X) And (X <= Command6.Width) And (0 <= Y) And (Y <= Command6.Height)
If MouseOver Then
Call LoadImages(Image1, "aaa.gif")
SetCapture Command6.hwnd
Else
Call LoadImages(Image1, "aaa1.gif")
ReleaseCapture
End If
End Sub
你是说这样吗？不用picturebox,要用Image呢？

[贝隆]

哦～～～～～
回了才发现回帖又增加了两贴

[stf_smile]

谢谢各位了

[zzhgb]

可以把图片读到内存里边再调用
不过我也用的标记