VB如何加超链接下划线，label 怎么在鼠标移动过来时添加下划线？代码？
展开全部
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
下划线是这样， 超链接你会我就不写了。
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
下划线是这样， 超链接你会我就不写了。
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
