'鼠标经过时,显示下划线
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)
我给你的代码实现的功能是:“鼠标放到label上,字体下面有下划线,鼠标移开的时候,没有下划线”
首先引用空间:
using System.Drawing
private void label1_MouseHover(object sender, EventArgs e)
{
//这个是鼠标悬浮事件中(即鼠标放到label上时发生的事件)
Font f = new Font("宋体", 9, FontStyle.Underline)//设置字体的样式(宋体,9号字,有下划线),括号里可根据自己需要修改
label1.Font = f//把label字体及样式再重置成你自己的样子
}
private void label1_MouseLeave(object sender, EventArgs e)
{
//这个是鼠标离开label时要做的 *** 作(取消下划线)
Font f = new Font("宋体", 9, FontStyle.Bold)
label1.Font = f
}
不清楚的话,可以hi我, - -,
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)