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