主题：如何动态设置控件字体

如何动态设置控件字体，动态设置字体粗体，大小，下划线等等

控件.Font = New Font("宋体", 12)

 

http://www.foxtable.com/help/topics/0494.htm

 

能否单独修改字体粗体，而不修改其他属性呢？

Dim c As WinForm.Control = e.Form.Controls("TextBox1")

c.Font = New Font(c.font.Name, c.font.Size, FontStyle.Bold )
 

代码有问题呀，加入之前已经设置下划线呢，现在加粗如何不影响之前的设置？

Dim c As WinForm.Control = e.Form.Controls("TextBox1")

c.Font = New Font(c.font.Name, c.font.Size, FontStyle.Bold )
 

这样不对，如果之前字体已经设置了下划线，这样会把下划线去掉了

Dim c As WinForm.Control = e.Form.Controls("TextBox1")

c.Font = New Font(c.font.Name, c.font.Size, FontStyle.Bold or c.font.Style)
 

这样对了，那如何将原本字体为粗体不加粗呢？

这样对了，那如何将原本字体为粗体不加粗呢？