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

Posted 2021-05-16 goodlifesantook

我们经常需要在自己编写的程序中使用系统注册字体的列表，一下是在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);
            }
        }