如果在程序中枚舉系統Fonts的列表

我們經常需要在自己編寫的程序中使用系統註冊字體的列表，一下是在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);
            }
        }