以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  保存字体设置  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=13875)

--  作者:明丰
--  发布时间:2011/10/30 21:21:00
--  保存字体设置

在窗口中增加一个按钮,代码:

Dim dlg As new windows.forms.fontdialog
If dlg.showdialog = DialogResult.Ok  Then
    Tables("颜色表").Font = dlg.Font
End If

 

重新设置字体样式,请问如何保存设置?

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:测试.table

[此贴子已经被作者于2011-10-30 22:03:36编辑过]

--  作者:狐狸爸爸
--  发布时间:2011/10/31 7:02:00
--  

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

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

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

--  作者:明丰
--  发布时间:2011/10/31 11:31:00
--  

Dim fnt As New Font("黑体",12,FontStyle.Bold Or FontStyle.Underline)
Output.Show(fnt.Name)
Output.Show(fnt.Size)
Output.Show(fnt.Style)

得到:

 

黑体
12
5

 

如果字体样式有多个值,请问如何提取?(如:FontStyle.Bold Or FontStyle.Underline)


--  作者:狐狸爸爸
--  发布时间:2011/10/31 11:32:00
--  

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


--  作者:明丰
--  发布时间:2011/10/31 14:25:00
--  

定义全局变量:  Public zt As Font

项目属性BeforeCloseProject:  zt = Tables("颜色表").Font

项目属性AfterOpenProject:     Tables("颜色表").Font = zt

 

上面的代码可以保存字体设置,如果希望把颜色表的字体属性各个值保存到数据表中,如果提取的各个值是:

"黑体"
12
5

 

请问如何重新合成字体设置?(Dim fnt As New Font("宋体",12,5)   不能通过测试)


--  作者:狐狸爸爸
--  发布时间:2011/10/31 14:39:00
--  
从你的设置中取得字体名称、大小,样式三个属性,保存在三个变量中
 
 
Dim fnt As New Font(名称变量,大小变量,样式变量)

--  作者:明丰
--  发布时间:2011/10/31 14:51:00
--  

Dim fnt As New Font("黑体",12,FontStyle.Bold Or FontStyle.Underline)
output.show(fnt.style)

 

得到5

 

也就是没办法查看Style的值(得到的只是数字)


--  作者:明丰
--  发布时间:2011/10/31 15:01:00
--  

定义全局变量:  Public zt As Font

项目属性BeforeCloseProject:  zt = Tables("颜色表").Font

项目属性AfterOpenProject:     Tables("颜色表").Font = zt

 

上面这段代码虽然能保存字体设置,但是当打开系统字体设置窗口时,窗口各选项不会与当前表设置相对应,请问应该如何设置?


--  作者:狐狸爸爸
--  发布时间: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


--  作者:明丰
--  发布时间:2011/10/31 15:17:00
--  

谢谢!

 

字体加载:

Dim d1 As String = DataTables("系统设置").DataRows(0)("字体名称")
Dim d2 As Integer = DataTables("系统设置").DataRows(0)("字体大小")
Dim d3 As FontStyle = DataTables("系统设置").DataRows(0)("字体样式")
Dim s As new font(d1,d2,d3)
Tables("表A").Font = s

[此贴子已经被作者于2011-11-8 10:06:19编辑过]