كيف أعرض الخطوط المثبتة في الجهاز ؟

عرفت الطريقة بعد الكثير من التجارب وهي سهلة وسريعة جداً

وهي:

FontFamily.Families(i).Name

ولكن شكراً على كل حال

السلام عليكم ورحمه الله وبركاته

اخي جرب الكود التالي لعرض الخطوط المنصبة في مربع القائمة

Private Sub Form1_Load(ByVal sender As System.Object, ByVal _
	e As System.EventArgs) Handles MyBase.Load
	Dim installed_fonts As New InstalledFontCollection
	lstFont.Items.Clear()
	For Each font_family As FontFamily In _
    	installed_fonts.Families
    	lstFont.Items.Add(font_family.Name)
	Next font_family
	lstFont.SelectedIndex = 0
End Sub