下劃線消失估計跟你用的windows桌面主題有關(guān),通常情況下不會的。或許你的是win7?

讓客戶滿意是我們工作的目標,不斷超越客戶的期望值來自于我們對這個行業(yè)的熱愛。我們立志把好的技術(shù)通過有效、簡單的方式提供給客戶,將通過不懈努力成為客戶在信息化領(lǐng)域值得信任、有價值的長期合作伙伴,公司提供的服務項目有:申請域名、虛擬主機、營銷軟件、網(wǎng)站建設、武進網(wǎng)站維護、網(wǎng)站推廣。
“保存D”中的D跟快捷鍵是無關(guān)的,你在二級菜單中試試就知道了,你在菜單中設了字母后,你還可以另外設一個快捷鍵,兩者根本就是不同的。說白了,一個菜單可以設兩個快捷鍵(頂層菜單則只有一個),一個是Alt+字母,另一個就是自設的快捷鍵比如Ctrl+A,區(qū)別在于前者只能在菜單顯示出來時使用,后者可以在菜單未顯示出的時候使用。
可以用樣式控制
this.style.textDecoration='underline'
顯示下劃線
this.style.textDecoration=''隱藏下劃線
具體你用在哪就可以了
將Label1 改成相應的 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
網(wǎng)站題目:vb.net+下劃線字母 vb程序設計下劃線
網(wǎng)頁路徑:http://chinadenli.net/article2/hgpdoc.html
成都網(wǎng)站建設公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站制作、響應式網(wǎng)站、商城網(wǎng)站、自適應網(wǎng)站、App開發(fā)、品牌網(wǎng)站制作
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)