取得屏幕字型:
DimIAsLong
ForI=0ToScreen.FontCount-1
Combo1.AddItemScreen.Fonts(I)
Next
取得打印机字型:
DimIAsLong
ForI=0ToPrinter.FontCount-1
Combo2.AddItemPrinter.Fonts(I)
Next->
取得屏幕字型:
DimIAsLong
ForI=0ToScreen.FontCount-1
Combo1.AddItemScreen.Fonts(I)
Next
取得打印机字型:
DimIAsLong
ForI=0ToPrinter.FontCount-1
Combo2.AddItemPrinter.Fonts(I)
Next->