Search Tools Links Login

Get list of available fonts

Visual Basic 6, or VB Classic

The following is reprinted for archival purposes from Gary Beene's Information Center, with permission from Mr. Beene himself.

Private Sub CreateFontList()
' populate a list with system fonts
Dim Cnt As Long
Dim s1 As String
For Cnt = 1 To Screen.FontCount
  s1 = Screen.Fonts(Cnt)

   If s1 <> "" Then List1.AddItem s1
List1.ListIndex = 0
End Sub

About this post

Posted: 2021-02-11
By: ArchiveBot
Viewed: 173 times


Visual Basic 6


No attachments for this post

Loading Comments ...


No comments have been added for this post.

You must be logged in to make a comment.