以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何获取系统所有字体名称?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=8963)

--  作者:baoxyang
--  发布时间:2011/1/5 9:52:00
--  如何获取系统所有字体名称?

Dim fnt As New Font("黑体",12,FontStyle.Underline)

字体名称为变量,此变量为系统的所有字体名称,请教,如何通过代码获取字库所有字体名称,以上上述代码调用


--  作者:狐狸爸爸
--  发布时间:2011/1/5 10:08:00
--  
For  i  As Integer =  0 To System.Drawing.FontFamily.Families.Length  - 1
    output.show(System.Drawing.FontFamily.Families(i).Name)
Next

--  作者:baoxyang
--  发布时间:2011/1/5 10:25:00
--  

谢谢!!