Foxtable(狐表)用户栏目专家坐堂 → 如何动态设置控件字体


  共有2900人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
大红袍
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/5/2 14:47:00 [显示全部帖子]

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

 

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

 


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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 )
 


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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)
 


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/5/2 17:10:00 [显示全部帖子]

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

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


 回到顶部