vb6.0 当鼠标到label标签上时标签上的字加下划线

类似于超链接按钮实现的功能... 类似于超链接按钮实现的功能展开

 我来答

1个回答

#热议# 应届生在签三方时要注意什么？

dongao8080
2011-09-16 · TA获得超过484个赞

知道小有建树答主

回答量：705

采纳率：66%

帮助的人：440万

我也去答题访问个人页

关注

展开全部

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

追问

当鼠标移开的时候下划线还在，如何去掉？空格的位置不要下划线如何设置！谢谢！

追答

移开时就在窗体的mousemove中写，或者在label的上一层容器中写，如
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Label1.Font.Underline = False
End Sub
空格位置无法取消下划线，只能用不同的label

本回答被提问者采纳