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

[mtsoft]

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

[mehdi_jazini]

من توی vb6 بلدم. ولی توی دات نت نه

[mehdi_jazini]

میگم شما API-Guide رو نصب کن. اونجایی که در مورد VB6 زده احتمالا معادل vb.net اونم زده. ولی وقت نکردم ببینم.

[mehdi_jazini]

میگم شما API-Guide رو نصب کن. اونجایی که در مورد VB6 زده احتمالا معادل vb.net اونم زده. ولی وقت نکردم ببینم.

[mehdi_jazini]

من که به شخصه به هیچ وجه اینکار رو نمیکنم. و اینکه این مطلب به این سایت مربوط نمیشه برادر

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

سلام ،
باید از کلاس 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