VB如何加超链接下划线,label 怎么在鼠标移动过来时添加下划线?代码?
发布网友
发布时间:2022-03-27 09:47
我来回答
共1个回答
热心网友
时间:2022-03-27 11:16
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
下划线是这样, 超链接你会我就不写了。