正文

如何取得计算机的所有字体2005-10-15 12:07:00

【评论】 【打印】 【字体: 】 本文链接:http://blog.pfan.cn/iamben250/6051.html

分享到:

如何取得计算机的所有字体

作者: 评价: 上站日期: 2001-09-04
内容说明:
来源:

 
取得屏幕字型: 
  Dim I As Long

  For I = 0 To Screen.FontCount - 1
    Combo1.AddItem Screen.Fonts(I)
  Next 

取得打印机字型: 
  Dim I As Long

  For I = 0 To Printer.FontCount - 1
    Combo2.AddItem Printer.Fonts(I)
  Next 

阅读(2229) | 评论(0)


版权声明:编程爱好者网站为此博客服务提供商,如本文牵涉到版权问题,编程爱好者网站不承担相关责任,如有版权问题请直接与本文作者联系解决。谢谢!

评论

暂无评论
您需要登录后才能评论,请 登录 或者 注册