VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 如何取得计算机的所有字型?
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:7987, 日期:2001-07-11
如何取得计算机的所有字型?
取得屏幕字型:
  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