Foxtable(狐表)用户栏目专家坐堂 → 保存字体设置


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

主题:保存字体设置

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/10/31 7:02:00 [显示全部帖子]

写个代码,将字体名称、大小、是否加粗等属性保存在用户设置、注册表、数据表、文本文件等任何一个可以保存设置的地方。

需要的时候从中读取即可。

[此贴子已经被作者于2011-10-31 7:01:53编辑过]

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/10/31 11:32:00 [显示全部帖子]

一个值:fnt.Style,就包括所有字体属性了


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/10/31 14:39:00 [显示全部帖子]

从你的设置中取得字体名称、大小,样式三个属性,保存在三个变量中
 
 
Dim fnt As New Font(名称变量,大小变量,样式变量)

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/10/31 15:02:00 [显示全部帖子]

Dim dlg As new windows.forms.fontdialog

dlg.Font = Tables("颜色表").Font
If dlg.showdialog = DialogResult.Ok Then
    Tables("颜色表").Font = dlg.Font
End If


 回到顶部