منتديات عرب رحيق الجنة

عزيزي الزائر / عزيزتي الزائرة
يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا
او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي
سنتشرف بتسجيلك
شكرا

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

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

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

في الأحد ديسمبر 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
---

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