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


كود :
Public Function PopulateListControlWithFonts(ListControl As _
Object) As Boolean
On Error GoTo errHandler:
Dim l As Long
Dim lCount As Long
ListControl.Clear
lCount = Screen.FontCount
For l = 0 To lCount - 1
ListControl.AddItem Screen.Fonts(l)
Next
PopulateListControlWithFonts = True
Exit Function
errHandler:
PopulateListControlWithFonts = False
Exit Function
End Function
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  لمعرفة الخطوط المدعومة RaggiTech 0 322 17-10-12, 02:21 PM
آخر رد: RaggiTech
  لتفريغ حقول ال TextBoxes الموجودة على WinForm RaggiTech 0 330 17-10-12, 02:20 PM
آخر رد: RaggiTech
  معرفه اي بي Ip الجهاز RaggiTech 0 339 17-10-12, 01:10 AM
آخر رد: RaggiTech
  معرفة اسم الجهاز باستخدام Active Directory ومعلومات أخرى مفيدة RaggiTech 0 389 17-10-12, 01:05 AM
آخر رد: RaggiTech
  لمعرفة نسبة استخدام البروسيسور في الجهاز RaggiTech 0 363 17-10-12, 01:02 AM
آخر رد: RaggiTech
  كود لمعرفة جميع ال Drivers الموجودة في جهاز الكومبيوتر RaggiTech 0 308 17-10-12, 12:50 AM
آخر رد: RaggiTech
  عرض جميع الطابعات في الجهاز واعتماد طابعة افتراضية RaggiTech 0 380 17-10-12, 12:47 AM
آخر رد: RaggiTech

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


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