Label 怎么设置下划线

将Label1 改成相应的 label 控件名称。

'锋兄鼠标经过汪困时，显示下划线

Private Sub Label1_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.MouseEnter

Dim LabelFont As Font = New Font(Label1.Font.Name, Label1.Font.Size, FontStyle.Underline)

Label1.Font.Dispose()

Label1.Font = LabelFont

End Sub

'鼠银陵袭标离开时，去除下划线

Private Sub Label1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.MouseLeave

Dim LabelFont As Font = New Font(Label1.Font.Name, Label1.Font.Size, FontStyle.Regular)

Label1.Font.Dispose()

Label1.Font = LabelFont

End Sub

iOS10.3更新后，商凳衡城APP这样的UI：原价 “￥500 ” 类似Label设置的中划线突然失效了。

这可能是苹果系统的一个bug。

根本原因悔唤：UILabel上的文字只要包含有“中文”，富文本字符枣前做串的中划线就会失效，我们可通过以下两种方式解决。

增加一个富文本属性： NSBaselineOffsetAttributeName : @(NSUnderlineStyleSingle)

---