如何取得计算机的所有字体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
| |
阅读(2228) | 评论(0)
版权声明:编程爱好者网站为此博客服务提供商,如本文牵涉到版权问题,编程爱好者网站不承担相关责任,如有版权问题请直接与本文作者联系解决。谢谢!
评论