以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求代码获取所有字体和字体大小的方法;  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=47296)

--  作者:ndxfke
--  发布时间:2014/3/7 17:18:00
--  求代码获取所有字体和字体大小的方法;
我想用代码做个 字体和字号 下拉选项,用代码怎么获取到这两项系统的所有值呢?
--  作者:Bin
--  发布时间:2014/3/7 17:23:00
--  
Dim lg As New Windows.forms.FontDialog
If lg.showdialog = DialogResult.OK Then
    output.show(lg.font.Tostring())
End If

--  作者:ndxfke
--  发布时间:2014/3/7 17:54:00
--  

Run出来的结果:[Font: Name=宋体, Size=9, Units=3, GdiCharSet=134, GdiVerticalFont=False]

我怎么取值呢。

我加载到list就简单了,呵!


--  作者:Bin
--  发布时间:2014/3/7 18:00:00
--  
Dim lg As New Windows.forms.FontDialog
If lg.showdialog = DialogResult.OK Then
    output.show(lg.font.name)
    output.show(lg.font.SIZE)
End If

有关FONT的属性,参考帮助http://www.foxtable.com/help/topics/0494.htm

--  作者:ndxfke
--  发布时间:2014/3/8 11:01:00
--  
谢谢你 BIN