كود لإظهار جميع خطوط الجهاز
الأحد ديسمبر 25, 2011 12:43 pm
كود صغير لإظهار جميع خطوط الجهاز في Listbox
الأدوات :-
Listbox1
command1
الأدوات :-
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
---
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى