منتديات عرب رحيق الجنة
كود لإظهار جميع خطوط الجهاز Salamo3lekobsm3
عزيزي الزائر / عزيزتي الزائرة
يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا
او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي
سنتشرف بتسجيلك
شكرا

ادارة المنتدي

اذهب الى الأسفل
EL M3LeM
EL M3LeM
عضو نشيط
عضو نشيط
عدد المساهمات : 82
نقاط : 202
تاريخ الميلاد : 09/04/1993
تاريخ التسجيل : 07/06/2010
العمر : 26
الموقع : الجيزة
http://www.net-ea.blogspot.com/

كود لإظهار جميع خطوط الجهاز Empty كود لإظهار جميع خطوط الجهاز

في الأحد ديسمبر 25, 2011 12:43 pm
كود صغير لإظهار جميع خطوط الجهاز في Listbox

الأدوات :-

Listbox1
command1

الكود :-
---

Option Explicit

Private Sub Command1_Click()

Dim Cnt As Long
Dim s1 As String
For Cnt = 1 To Screen.FontCount
s1 = Screen.Fonts(Cnt)

If s1 <> "" Then List1.AddItem s1
Next
List1.ListIndex = 0

Label1.Caption = "In Your Computer There Are " & List1.ListCount & " Fonts Installed"

End Sub
---

الرجوع الى أعلى الصفحة
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى