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

Question

如在label中的mousemove事件中,可让label中的字体变色,鼠标变成手形等,但当鼠标移开时,又怎样让label中的字体颜色变成原来的呢?模仿网页的超链接.

Answer 1

楼上的~是针对有句柄的控件才有效~像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

Answer 2

代码：
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 = 99 意思是鼠标移到标签上是，其指针由用户指定，不用系统指针
3、Label1.MouseIcon = LoadPicture("c:\ROCKET.ICO")就是设置用户自己的指针，当然你要准备一个.ICO的图片
效果如下，简单吧？如果不要额外的设置，只要上面2,3两句就行了.不错吧？上分哈！