کافیه یک عدد لیست باکس به فرم اضافه کنید و این کد را داخل فرم بذارید
Private Sub Form_Load()
For I = 1 To Screen.FontCount
List1.AddItem Screen.Fonts(I)
Next
End Sub
برای اسفاده از فونتها هم از این کد استفاده کنید:
Private Sub List1_Click()
Text1.Font.Name = List1.List(List1.ListIndex)
End Sub
نوشته شده توسط مهدی در پنج شنبه 88/2/24 و ساعت 10:59 عصر | نظرات دیگران()
