在VB中如何实现类似网页的效果。。。。

[palmkey]

网页超链接时,鼠标接近时是一种色彩,
离开时变色.
即如何模拟鼠标的onMouseover与onMouseOut事件,
在VB中如何实现?????????????

[三杯倒]

1111

[vbprog]

可以自己写代码实现。

[enmity]

http://caotang.myetang.com/temp/hyperlink.zip

[foolishtiger]

'以标签为例
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.FontUnderline = False
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.FontUnderline = True
End Sub

[apollo]

控件可以确定鼠标是不是在控件内（只是一个方法），你也可以自己做一个类，用鼠标位置来判断

[palmkey]

to 吴文智：
你的程式必须发生click后，才能改变样式；
能不能不click就改变？盼！

[tiaozi2000]

利用mousemove来写！

[palmkey]

刚才调试时出了点问题，至此已解决，
foolishtiger的方法最简单,
enmity的也可行，谢谢各位！