AutoCAD 3DMAX C语言 Pro/E UG JAVA编程 PHP编程 Maya动画 Matlab应用 Android
Photoshop Word Excel flash VB编程 VC编程 Coreldraw SolidWorks A Designer Unity3D
 首页 > VB编程

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

51自学网 http://www.wanshiok.com
取得屏幕字型:
  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

 

 

 
上一篇:如何取得汉字的区位码  下一篇:将包含有Null结尾的字符串转换为VB字符串