[已解决]窗体N个标签 鼠标滑动变色

蝶·舞

我在窗体中添加N个标签，然后设置鼠标经过时变红色，离开变黑色
我现在的代码，是有几个标签就设几个MOVE事件，我想问一下，如果我有一百个标签，也得这么设置吗？有没有能够对标签进行变量设置，写一个代码就够了？ 鼠标经过变色.zip (7.06 KB, 下载次数: 23)

2016-4-5 11:00 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

grf1973

2016-4-5 14:14

用类模块做的。。。。。

跳转到最佳答案楼层

grf1973

这个好象要使用类模块来解决的。

乐乐2006201506

好高深，期待学习。

grf1973

有个取巧的办法
但鼠标只能在窗体的空白处移动才作用，如果鼠标移到窗体的控件，不发生作用。

1. Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   
2.     For i = 1 To 5
   
3.          With Me.Controls("Label" & i)
   
4.             .ForeColor = RGB(0, 0, 0)
   
5.             y1 = .Top: y2 = y1 + .Height
   
6.             If Y >= y1 And Y <= y2 Then .ForeColor = RGB(255, 0, 0)
   
7.         End With
   
8.     Next
   
9. End Sub
   

复制代码

grf1973

用类模块做的。。。。。

爱疯

'窗体中的代码
Dim labs(1 To 5) As New 类1
Private Sub UserForm_Initialize()
    Dim i
    For i = 1 To UBound(labs)
        Set labs(i).myEvent = Me.Controls("Label" & i)
    Next i
End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Dim i
    For i = 1 To UBound(labs)
        labs(i).myEvent.ForeColor = RGB(0, 0, 0)
    Next
End Sub


'类模块中的代码
Public WithEvents myEvent As MSForms.Label
Private Sub myEvent_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    myEvent.ForeColor = RGB(255, 0, 0)
End Sub


鼠标经过变色2.rar (12.02 KB, 下载次数: 43)

2016-4-5 16:41 上传

点击文件名下载附件


我是对照5楼改的，自己觉着还是不清晰。。。

grf1973

我也是对着书现编的。类模块平时基本没用过。

乐乐2006201506

好东西，一定要学。