نمایش فونت ها در combobox

[mtsoft]

با عرض سلام و خسته نباشید خدمت همه دوستان عزیز
می خواستم ببینم چه جوری میشه در vb.net فونت های سیستم عامل رو تو یک combobox نشون داد..
مثل برنامه wordpad که نام فونت رو از یک combo box انتخاب می کنیم....
با تشکر
خدانگهدار

[علیرضا مداح]

سلام ،
باید از کلاس System.Drawing.Text.InstalledFontCollection استفاده کنید ،
مثالی از MSDN :


Dim fontFamily As New FontFamily("Arial")
Dim font As New Font( _
fontFamily, _
8, _
FontStyle.Regular, _
GraphicsUnit.Point)
Dim rectF As New RectangleF(10, 10, 500, 500)
Dim solidBrush As New SolidBrush(Color.Black)
Dim familyName As String
Dim familyList As String = ""
Dim fontFamilies() As FontFamily
Dim installedFontCollection As New InstalledFontCollection()
' Get the array of FontFamily objects.
fontFamilies = installedFontCollection.Families
' The loop below creates a large string that is a comma-separated
' list of all font family names.
Dim count As Integer = fontFamilies.Length
Dim j As Integer
While j < count
familyName = fontFamilies(j).Name
familyList = familyList & familyName
familyList = familyList & ", "
j += 1
End While
' Draw the large string (list of all families) in a rectangle.
e.Graphics.DrawString(familyList, font, solidBrush, rectF)

[ali_najari]

از اين طريق ميتونيد استفاده كنيد



For Each Fonts As FontFamily In FontFamily.Families
FontCombobox.Items.Add(Fonts.Name)
Next