+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد الفيجوال بيسك 6 (http://vb4arb.com/vb/forumdisplay.php?fid=116)
+---- الموضوع : لمعرفة الخطوط المدعومة (/showthread.php?tid=6025)
لمعرفة الخطوط المدعومة - RaggiTech - 17-10-12
كاتب الموضوع : 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]