27 Декабрь 2008

Как вывести список доступных шрифтов?

Разное |  Таги: ,

Как вывести список доступных шрифтов?

'Свойство TextBox Multiline установите в True
Option Explicit

Private Sub Command1_Click()
‘В ручную:
'Text1.MultiLine = True
Text1.Text = ""
Dim Str As String
Dim x As Integer
For x = 0 To Printer.FontCount - 1
Str = Printer.Fonts(x)
Text1.Text = Text1.Text & x & " " & Str & ", " & vbCrLf
Next x
End Sub

Запись опубликована on 27.12.2008 at 9:10 и размещена в рубрике: Разное. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.



Оставить комментарий

Я не робот.