查看完整版本: 如何取得计算机的所有字型

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

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