VB 当鼠标移到某对象时,对象内容改变,当鼠标移开时怎样还原

来源：百度知道 编辑：UC知道 时间：2024/06/17 12:49:54
如在label中的mousemove事件中,可让label中的字体变色,鼠标变成手形等,但当鼠标移开时,又怎样让label中的字体颜色变成原来的呢?模仿网页的超链接.

楼上的~是针对有句柄的控件才有效~像label这种轻量级控件没有用的
给你一个简单版的。
Dim a, b
Private Sub Form_Load()
a = Label1.ForeColor
b = Label1.MousePointer
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = a
Label1.MousePointer = b
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbRed
Label1.MousePointer = 99
Label1.MouseIcon = LoadPicture("C:\WINDOWS\Cursors\harrow.cur")
End Sub

代码：
Private Sub Form_Load()
Label1.BorderStyle = 1
Label1.Caption = "来溜达一下！"
Label1.Font = "黑体"
Label1.FontSize = 20
Label1.BackColor = vbYellow
Label1.ForeColor = vbRed
Label1.MousePointer = 99
Label1.MouseIcon = LoadPicture("c:\ROCKET.ICO")
End Sub
说明：
1、前面关于label1属性的设置很简单，不罗嗦了
2、Label1.MousePointer = 9