| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 如何动态设置控件字体 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=84443) |
|
| -- 作者：cyl123 -- 发布时间：2016/5/2 14:29:00 -- 如何动态设置控件字体 如何动态设置控件字体，动态设置字体粗体，大小，下划线等等 |
|
| -- 作者：大红袍 -- 发布时间：2016/5/2 14:47:00 -- 控件.Font = New Font("宋体", 12)
http://www.foxtable.com/help/topics/0494.htm
|
|
| -- 作者：cyl123 -- 发布时间：2016/5/2 15:50:00 -- 能否单独修改字体粗体，而不修改其他属性呢？ |
|
| -- 作者：大红袍 -- 发布时间：2016/5/2 15:55:00 -- Dim c As WinForm.Control = e.Form.Controls("TextBox1") c.Font = New Font(c.font.Name, c.font.Size, FontStyle.Bold ) [此贴子已经被作者于2016/5/2 16:15:46编辑过]
|
|
| -- 作者：cyl123 -- 发布时间：2016/5/2 16:06:00 -- 代码有问题呀，加入之前已经设置下划线呢，现在加粗如何不影响之前的设置？ [此贴子已经被作者于2016/5/2 16:10:34编辑过]
|
|
| -- 作者：大红袍 -- 发布时间：2016/5/2 16:16:00 -- Dim c As WinForm.Control = e.Form.Controls("TextBox1") c.Font = New Font(c.font.Name, c.font.Size, FontStyle.Bold ) |
|
| -- 作者：cyl123 -- 发布时间：2016/5/2 16:21:00 -- 这样不对，如果之前字体已经设置了下划线，这样会把下划线去掉了 |
|
| -- 作者：大红袍 -- 发布时间：2016/5/2 16:45:00 -- 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) |
|
| -- 作者：cyl123 -- 发布时间：2016/5/2 16:48:00 -- 这样对了，那如何将原本字体为粗体不加粗呢？ [此贴子已经被作者于2016/5/2 17:02:03编辑过]
|
|
| -- 作者：cyl123 -- 发布时间：2016/5/2 17:02:00 --
|