- 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(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
This code creates a file readable by WordPad onto your HD listing all the fonts installed on your s Comments
No comments yet — be the first to post one!
Post a Comment