[已解决]谢谢过儿老师。窗体内的效果设置

lhj323323

==以下是设置窗体内4个Label动态效果，即当鼠标移到UserForm1时，4个Label字体的颜色变化_雨中漫步=========================================
    Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
        Me.Label1.ForeColor = &HFF& '字体显示为红色
        Me.Label1.Font.Underline = False '字没有下划线
       Me.Label2.ForeColor = &HFF& '字体显示为红色
        Me.Labe2.Font.Underline = False '字没有下划线
       Me.Label3.ForeColor = &HFF& '字体显示为红色
        Me.Label3.Font.Underline = False '字没有下划线
       Me.Label4.ForeColor = &HFF& '字体显示为红色
        Me.Label4.Font.Underline = False '字没有下划线
    End Sub

   Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
        Me.Label1.ForeColor = &HFF0000 '鼠标指向的字体显示为蓝色
        Me.Label1.Font.Underline = True '鼠标指向的字显示为下划线的字
    End Sub
    Private Sub Labe2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
        Me.Label2.ForeColor = &HFF0000 '鼠标指向的字体显示为蓝色
        Me.Labe2.Font.Underline = True '鼠标指向的字显示为下划线的字
    End Sub
    Private Sub Label3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
        Me.Label3.ForeColor = &HFF0000 '鼠标指向的字体显示为蓝色
        Me.Labe3.Font.Underline = True '鼠标指向的字显示为下划线的字
    End Sub
    Private Sub Label4_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
        Me.Label4.ForeColor = &HFF0000 '鼠标指向的字体显示为蓝色
        Me.Labe4.Font.Underline = True '鼠标指向的字显示为下划线的字
    End Sub
如果有100个Label，难道我就得分别设置100个的子程序吗？有没有一种简单的办法来表示这个效果？

最佳答案

月排行榜 / 总排行榜

过儿

2011-6-24 22:00

http://www.excelpx.com/forum.php ... replyID=&skin=1

跳转到最佳答案楼层

过儿

http://www.excelpx.com/forum.php ... replyID=&skin=1

lhj323323

回复 过儿 的帖子

谢谢过儿老师。

lhj323323

回复 过儿 的帖子

过儿老师：
兰色老师的那段程序好像不能套用到我的需求中
我胡乱进行了套用，结果报错了：
运行时错误“438”
对象不支持该属性或方法
还有必要要通过类模块吗？
我的需求是两部分的：
1、每个Label在鼠标选择前都显示为红色和没有下划线
    Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
       '======对每一个同类的控件分别设置命令，雨中漫步写的，
        ‘Me.Label1.ForeColor = &HFF& '字体显示为红色
        ’Me.Label1.Font.Underline = False '字没有下划线
       '======对每一个同类的控件设置命令，兰色幻想写的，
         For x = 1 To 3
           Me.Controls("Label" & x).ForeColor = &HFF& '字体显示为红色
           Me.Controls("Label" & x).Underline = False '字没有下划线
         Next x
    End Sub
2、当鼠标选到某个Label时，只有这一个（而不是每一个）Label显示为蓝色和下划线，
   Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
        Me.Label1.ForeColor = &HFF0000 '鼠标指向的字体显示为蓝色
        Me.Label1.Font.Underline = True '鼠标指向的字显示为下划线的字
    End Sub
.........