十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
下划线消失估计跟你用的windows桌面主题有关,通常情况下不会的。或许你的是win7?
让客户满意是我们工作的目标,不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户,将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴,公司提供的服务项目有:申请域名、虚拟主机、营销软件、网站建设、武进网站维护、网站推广。
“保存D”中的D跟快捷键是无关的,你在二级菜单中试试就知道了,你在菜单中设了字母后,你还可以另外设一个快捷键,两者根本就是不同的。说白了,一个菜单可以设两个快捷键(顶层菜单则只有一个),一个是Alt+字母,另一个就是自设的快捷键比如Ctrl+A,区别在于前者只能在菜单显示出来时使用,后者可以在菜单未显示出的时候使用。
可以用样式控制
this.style.textDecoration='underline'
显示下划线
this.style.textDecoration=''隐藏下划线
具体你用在哪就可以了
将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