可以用樣式控制
創(chuàng)新互聯(lián)公司主營伊通網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營網(wǎng)站建設(shè)方案,成都app軟件開發(fā)公司,伊通h5微信小程序開發(fā)搭建,伊通網(wǎng)站營銷推廣歡迎伊通等地區(qū)企業(yè)咨詢
this.style.textDecoration='underline'
顯示下劃線
this.style.textDecoration=''隱藏下劃線
具體你用在哪就可以了
將Label1 改成相應(yīng)的 label 控件名稱。
'鼠標(biāo)經(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
'鼠標(biāo)離開時,去除下劃線
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=''"); //隱藏下劃線