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