[moosa_alabri]

السلام عليكم ورحمة الله
سأجيبك عن سؤال واحد وضع خطوط النظام في قائمة منسدلة
هذا هو الكود

PHP كود :

Imports System
Imports System.Drawing.Text
Imports System.Drawing
 
Dim InstalledFonts As New InstalledFontCollection
Dim fontfamilies() As FontFamily = InstalledFonts.Families()
For Each fontFamily As FontFamily In fontfamilies
      cmbFonts.Properties.Items.Add(fontFamily.Name)
Next