如果在程序中枚举系统Fonts的列表

最新推荐文章于 2025-08-08 21:58:17 发布

goodlifesantook

最新推荐文章于 2025-08-08 21:58:17 发布

阅读量971

点赞数

CC 4.0 BY-SA版权

文章标签： fonts integer frameworks microsoft vb.net vb

本文链接：https://blog.youkuaiyun.com/SANTOOK/article/details/2371547

本文介绍了如何在不同版本的Visual Basic及C#中获取系统可用的字体列表。在VB6中，可以通过Printer类的Font属性来获取；而在VB.NET和C#中，则需要利用FontFamily.Families属性遍历所有字体。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

我们经常需要在自己编写的程序中使用系统注册字体的列表，一下是在VB以及.NET中的实现方法。

VB 6：我们通过Printer类的Font相关的属性来获得字体集合

Private Sub Form_Load()
    Dim i As Integer
    For i = 0 To Printer.FontCount
        Me.List1.AddItem Printer.Fonts(i)
    Next i
End Sub

VB.NET和C#则需要通过统一的平台——Microsoft .NET Frameworks平台来实现，因为毕竟VB.NET和C#是基于CLR的。

'------------------------------------VB.NET--------------------------------------

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer
        For i = FontFamily.Families.GetLowerBound(0) To FontFamily.Families.GetUpperBound(0)
            Me.ListBox1.Items.Add(FontFamily.Families(i).Name)
        Next
    End Sub

//----------------------------------C#-----------------------------------------------

        private void Form1_Load(object sender, EventArgs e)
        {
            int i;
            for (i = FontFamily.Families.GetLowerBound(0); i <= FontFamily.Families.GetUpperBound(0); i++)
            {
                this.listBox1.Items.Add(FontFamily.Families[i].Name);
            }
        }