vb.net如何加下划线 vb 下划线
vb.net 2005 中给字体加下划线的代码是什么啊
可以用样式控制
为通辽等地区用户提供了全套网页设计制作服务,及通辽网站建设行业解决方案。主营业务为做网站、成都网站建设、通辽网站设计,以传统方式定制建设网站,并提供域名空间备案等一条龙服务,秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求,就会得到认可,从而选择与我们长期合作。这样,我们也可以走得更远!
this.style.textDecoration='underline'
显示下划线
this.style.textDecoration=''隐藏下划线
具体你用在哪就可以了
vb.net的label怎么在鼠标移动过来时添加下划线?代码是什么?
Label1.Attributes.Add("onmouseover", "this.style.textDecoration='underline'"); //显示下划线
Label1.Attributes.Add("onmouseout", "this.style.textDecoration=''"); //隐藏下划线
vb.net中怎么给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
VB中怎么添加下划线?
VB中用代码方式给文字添加下划线和删除线,代码如下:
//Underline属性添加下划线
Private
Sub
Check1_Click()
Label1.Font.Underline
=
IIf(Check1.Value
=
vbChecked,
True,
False)
End
Sub
//Strikethrough属性添加删除线
Private
Sub
Check2_Click()
Label1.Font.Strikethrough
=
IIf(Check2.Value
=
vbChecked,
True,
False)
End
Sub
文章标题:vb.net如何加下划线 vb 下划线
浏览路径:http://pwwzsj.com/article/hjhsdg.html