將Label1 改成相應的 label 控件名稱。
目前成都創新互聯已為1000多家的企業提供了網站建設、域名、網站空間、網站托管、服務器租用、企業網站設計、貞豐網站維護等服務,公司將堅持客戶導向、應用為本的策略,正道將秉承"和諧、參與、激情"的文化,與客戶和合作伙伴齊心協力一起成長,共同發展。
'鼠標經過時,顯示下劃線
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=''"); //隱藏下劃線
可以用樣式控制
this.style.textDecoration='underline'
顯示下劃線
this.style.textDecoration=''隱藏下劃線
具體你用在哪就可以了
沒有意思,為了便于理解,把兩個單詞分開而已,去掉無所謂的
文章標題:vb.net加下劃線 vb中下劃線,刪除線怎么編程
地址分享:http://vcdvsql.cn/article12/hehodc.html
成都網站建設公司_創新互聯,為您提供做網站、、企業建站、網站維護、全網營銷推廣、云服務器
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯