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

　2006-02-27 11:41:54　来源：WEB开发网　　　

核心提示：取得屏幕字型：DimIAsLongForI=0ToScreen.FontCount-1Combo1.AddItemScreen.Fonts(I)Next取得打印机字型：DimIAsLongForI=0ToPRinter.FontCount-1Combo2.AddItemPrinter.Fonts(I)Next->

取得屏幕字型：
　DimIAsLong

　ForI=0ToScreen.FontCount-1
　　　Combo1.AddItemScreen.Fonts(I)
　Next

取得打印机字型：
　DimIAsLong

　ForI=0ToPRinter.FontCount-1
　　　Combo2.AddItemPrinter.Fonts(I)
　Next->