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

页面导航:首页 > 软件编程 > vb.net > 如何取得计算机的所有字型?

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

来源: 作者: 时间:2016-02-05 12:32 【

取得屏幕字型: 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 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

 

 

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <