• Home
 · 
• Graphics
 · 
• This code creates a file readable by WordPad onto your HD listing all the fonts installed on your s

This code creates a file readable by WordPad onto your HD listing all the fonts installed on your s

This code creates a file readable by WordPad onto your HD listing all the fonts installed on your system everyone presenting its true

Rate This code creates a file readable by WordPad onto your HD listing all the fonts installed on your s

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

 This code creates a file (C:\F.RTF, readable by WordPad)
 onto your HD listing all the fonts installed on your system
 everyone presenting its true appearance.

 You need a form (Form1) with:

 a ListBox (List1)
 a RichTextBox (RTBox1)
 a CommandButton (Command1)

 Just copy and paste this lines in your application
 No declarations needed


Private Sub Form_Load()
For I = 0 To Printer.FontCount - 1
  List1.AddItem Printer.Fonts(I)
Next I
Form1.Caption = "Fonts: " & Printer.FontCount
End Sub

Private Sub Command1_Click()
a = ""
For t = 0 To List1.ListCount - 1
  a = a + List1.List(t) + Chr$(10)
Next t
RTBox1.TextRTF = a
b = 0
For t = 0 To List1.ListCount - 1
  RTBox1.SelStart = b
  l = Len(List1.List(t))
  RTBox1.SelLength = l
  RTBox1.SelFontName = List1.List(t)
  b = b + l + 1
Next t
RTBox1.SaveFile "C:\F.RTF", 0
End Sub