لیست فونتها

[ice007]

سلام
چطور می تونم یک کمبوباکس درست کنم که لیست فونتهای سیستم در اون لود بشه و به richtexbox ها اون فونتها را اختصاص بدم؟

[ghafoori]

دوست عزیز با این کد

 Dim f1 As New Drawing.Text.InstalledFontCollection

        Dim f2() As FontFamily

        f2 = f1.Families

        Dim f3 As FontFamily

        For Each f3 In f2

            Me.ComboBox1.Items.Add(f3.Name)

        Next

[eyes_shut_number1]

به نظره من بهتره از یه فونت دیالوگ استفاده کنی

Private Sub button1_Click(sender As Object, e As System.EventArgs)

    fontDialog1.ShowColor = True

    fontDialog1.Font = richtextbox1.Font

    fontDialog1.Color = richtextbox1.ForeColor

    If fontDialog1.ShowDialog() <> DialogResult.Cancel Then

         richtextbox1.Font = fontDialog1.Font

         richtextbox1.ForeColor = fontDialog1.Color

    End If

End Sub 'button1_Click