تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
لمعرفة الخطوط المدعومة
#1
كاتب الموضوع : Boutemine Oualid

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


كود :
[SIZE=2]Private Sub FindPolices()[/SIZE]
[SIZE=2]Dim i As Long[/SIZE]
[SIZE=2]For i = 0 To Screen.FontCount - 1[/SIZE]
[SIZE=2]Debug.Print Screen.Fonts(i)[/SIZE]
[SIZE=2]Next[/SIZE]
[SIZE=2]End Sub[/SIZE]
}}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم