by Ayeye Brazov (1 Submission)
Category: Graphics
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Tue 30th May 2000
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
This code creates a file readable by WordPad onto your HD listing all the fonts installed on your system everyone presenting its true
VBcoders
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
No comments have been posted about This code creates a file readable by WordPad onto your HD listing all the fonts installed on your s. Why not be the first to post a comment about This code creates a file readable by WordPad onto your HD listing all the fonts installed on your s.