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

 

 

取得屏幕字型： 

　  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 

 

 

上一个：如何使用未安装的字体？
下一个：清除字符串中指定的字符