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

VB 程序设计

10个成员

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

发表于 2016-12-21 • 3414 次查看

取得屏幕字型：
　 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

查看全部回复倒序查看回复

发表回复

你还没有登录，请先登录或注册！

(大小不能超过2MB，文件类型支持png ,jpg ,gif ,doc ,xls ,txt ,rar ,zip .)