vb6中,MouseMove问题

stf_smile 2009-11-05 11:33:40
vb6中,MouseMove事件的时候,图片总是一闪一闪的,如何解决?各位大师帮帮忙。
...全文
325 14 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
14 条回复
切换为时间正序
请发表友善的回复…
发表回复
zzhgb 2009-11-05
  • 打赏
  • 举报
回复
可以把图片读到内存里边再调用
不过我也用的标记
stf_smile 2009-11-05
  • 打赏
  • 举报
回复
谢谢各位了
贝隆 2009-11-05
  • 打赏
  • 举报
回复
哦~~~~~
回了才发现回帖又增加了两贴
stf_smile 2009-11-05
  • 打赏
  • 举报
回复
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呢?
贝隆 2009-11-05
  • 打赏
  • 举报
回复
[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
luofenghen 2009-11-05
  • 打赏
  • 举报
回复
给picturebox 一个范围坐标 鼠标在那个范围内就转换图片,移开就换回来
  • 打赏
  • 举报
回复
不一定是最好的方法,试试
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
stf_smile 2009-11-05
  • 打赏
  • 举报
回复
谢谢了
  • 打赏
  • 举报
回复
嗯, 知道你要什么了,我想下
stf_smile 2009-11-05
  • 打赏
  • 举报
回复
图片的鼠标移上去和鼠标离开切换图片,vb6里面没有鼠标离开事件,我就那样写了
stf_smile 2009-11-05
  • 打赏
  • 举报
回复
有4张图片,图片都是放在那个Picture1上面的。
  • 打赏
  • 举报
回复
你要干什么呢,一动就load?
stf_smile 2009-11-05
  • 打赏
  • 举报
回复
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
我的代码,各位大师,帮帮忙。
  • 打赏
  • 举报
回复
代码?

1,453

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧