با استفاده از کد زیر و قرار دادن این کد در یک command و اضافه کردن یک لیست باکس به فرم می توان تعداد فونتهای قابل دسترسی پرینتر را در لیست باکس مشاهده کرد
Private Sub Command1_Click()
Dim i
For i = 0 To Printer.FontCount - 1
List1.AddItem Printer.Fonts(i)
Next i
End Sub
تعریف متغیر با استفاده از Dim و استفاده از خاصیت FontCount برای بدست آوردن تعداد فونتهای قابل دسترسی
۰ نظر
۲۰ تیر ۹۳ ، ۰۰:۰۰
