[已解决]MouseMove 事件 让图片变色问题！

mxg825

我用窗体MouseMove 事件
和图片MouseMove 事件  实现 经过图片时 变色！

但出现一个问题：当按个图片控件后，变色效果就失效了！

1. Option Explicit
   
2. 
   
3. Private Sub Image1_Click()
   
4. MsgBox ""
   
5. End Sub
   
6. 
   
7. Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   
8. Image1.PictureAlignment = 1
   
9. End Sub
   
10. Private Sub Image2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    
11. Image2.PictureAlignment = 1
    
12. End Sub
    
13. Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    
14. Image1.PictureAlignment = 0
    
15. Image2.PictureAlignment = 0
    
16. End Sub
    

复制代码

最佳答案

月排行榜 / 总排行榜

Dj_soo

2011-11-24 19:57

完全没问题啊! 变色问题（MouseMove）.rar (28.46 KB, 下载次数: 36)

2011-11-24 19:57 上传

点击文件名下载附件

跳转到最佳答案楼层

mxg825

是不是因为按下之后，焦点 问题？

mxg825

按下后
PictureAlignment 值 还是有在发生变化
但图片的效果没有发生变化！

mxg825

试出来了
我在按下事件中 ‘隐藏图片控件 再显示  就可以了！
看来按下后，图片控件要重画 才行！
Private Sub Image2_Click()
   Image2.Visible = False
   Image2.Visible = True
End Sub

Dj_soo

需要repaint一下,稍作了一点优化:

1. Option Explicit
   
2. 
   
3. Dim move_Userform As Long
   
4. Dim move_Image As Long
   
5. 
   
6. Private Sub Image1_Click()
   
7.     MsgBox ""
   
8. End Sub
   
9. 
   
10. Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    
11.     move_Userform = 0
    
12.     move_Image = move_Image + 1
    
13.     If move_Image = 1 Then Image1.PictureAlignment = 1: UserForm1.Repaint
    
14. End Sub
    
15. Private Sub Image2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    
16.     move_Userform = 0
    
17.     move_Image = move_Image + 1
    
18.     If move_Image = 1 Then Image2.PictureAlignment = 1: UserForm1.Repaint
    
19. End Sub
    
20. Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    
21.     move_Image = 0
    
22.     move_Userform = move_Userform + 1
    
23.     If move_Userform = 1 Then
    
24.         Image1.PictureAlignment = 0
    
25.         Image2.PictureAlignment = 0
    
26.         UserForm1.Repaint
    
27.     End If
    
28. End Sub
    

复制代码

mxg825

Dj_soo 发表于 2011-11-24 16:35
需要repaint一下,稍作了一点优化:

没有效果 。。。。。。。。！

我用隐藏 再显示 暂时解决这个问题！

应该需要重画 窗体！

Dj_soo

mxg825 发表于 2011-11-24 17:30
没有效果 。。。。。。。。！

我用隐藏 再显示 暂时解决这个问题！

不可能吧,我在电脑上已经试过了完美运行啊

Dj_soo

完全没问题啊! 变色问题（MouseMove）.rar (28.46 KB, 下载次数: 36)

2011-11-24 19:57 上传

点击文件名下载附件

Dj_soo

求真相!

mxg825

我大意。新建个窗体，忘了改： UserForm1.Repaint   UserForm2.Repaint