vb.net 2005 中給字體加下劃線的代碼是什么啊

可以用樣式控制

為通遼等地區(qū)用戶提供了全套網(wǎng)頁設(shè)計制作服務(wù)，及通遼網(wǎng)站建設(shè)行業(yè)解決方案。主營業(yè)務(wù)為做網(wǎng)站、成都網(wǎng)站建設(shè)、通遼網(wǎng)站設(shè)計，以傳統(tǒng)方式定制建設(shè)網(wǎng)站，并提供域名空間備案等一條龍服務(wù)，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務(wù)。我們深信只要達到每一位用戶的要求，就會得到認可，從而選擇與我們長期合作。這樣，我們也可以走得更遠！

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設(shè)置下劃線

將Label1 改成相應(yīng)的 label 控件名稱。

'鼠標經(jīng)過時，顯示下劃線

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