你好,在vb中選擇到的字詞,將他們的FontUnderline = True,就可以加下劃線了

金鄉(xiāng)網站制作公司哪家好,找創(chuàng)新互聯(lián)!從網頁設計、網站建設、微信開發(fā)、APP開發(fā)、成都響應式網站建設公司等網站項目制作,到程序開發(fā),運營維護。創(chuàng)新互聯(lián)自2013年創(chuàng)立以來到現(xiàn)在10年的時間,我們擁有了豐富的建站經驗和運維經驗,來保證我們的工作的順利進行。專注于網站建設就選創(chuàng)新互聯(lián)。
可以用樣式控制
this.style.textDecoration='underline'
顯示下劃線
this.style.textDecoration=''隱藏下劃線
具體你用在哪就可以了
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
將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
Label1.Attributes.Add("onmouseover", "this.style.textDecoration='underline'"); //顯示下劃線
Label1.Attributes.Add("onmouseout", "this.style.textDecoration=''"); //隱藏下劃線
一個按鈕的caption屬性是一個字符串,要么整體都有下劃線,要么都沒有,但是可以僅有一個字母帶下劃線 那就是在字母的前面加上符號 比如 “中文d” 顯示的效果就是
本文標題:vb.net字母加下劃線,vb設置字體為下劃線代碼
分享網址:http://chinadenli.net/article44/dsihshe.html
成都網站建設公司_創(chuàng)新互聯(lián),為您提供品牌網站制作、品牌網站建設、域名注冊、企業(yè)網站制作、外貿建站、用戶體驗
聲明:本網站發(fā)布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯(lián)