vb.net鼠标移入label时如何更改字体颜色,比如蓝色
(1)看到网上有大量的在vb中该如何设置,跟着在vb.net中应用却不成功,MouseEnter、MouseMove、MouseHover三个
事件均调试了一遍,但均没有效果,事件内代码如下:
Label9.ForeColor = Color.Blue
注:请注意是在vb.net环境
(2)另外该如何鼠标移入时该如何添加下划线
我写:Label9.Font.Underline = True系统提示我:属性underline为readonly
去看了下font里的underline属性,只有true和false两项,这又是怎么回事呢
我刚学vb.net,烦请高人详细指点!
[解决办法]
[解决办法]
vs2010版调试通过,如有不同,纯版不同
鼠标悬浮色变红,加下划线
Private Sub Label1_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.MouseHover
Label1.ForeColor = Color.Red
Label1.Font = New System.Drawing.Font("simsun", 9, FontStyle.Underline)
End Sub
鼠标离开,色变蓝,无下划线
Private Sub Label1_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.MouseLeave
Label1.ForeColor = Color.Blue
Label1.Font = New System.Drawing.Font("simsun", 9, FontStyle.Regular)
End Sub
如果在lz的机器上无效果,你的是对的。
如果在我的机器上有效果,我的是对的。