vb.net鼠标移入label时怎么更改字体颜色，比如蓝色

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，烦请高人详细指点！

[解决办法]

探讨

引用:

引用:

引用:

引用:

你在MouseOver事件写改变颜色代码
猜你说的是MouseHover吧，我已经用了啊，见上面帖子，但不行

LZ我错了，你是winform，winform用MouseMove

V……

[解决办法]
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的机器上无效果，你的是对的。
如果在我的机器上有效果，我的是对的。

查看更多 下一篇