by Rob Bogdanoff (1 Submission)
Category: Custom Controls/Forms/Menus
Compatability: Visual Basic 3.0
Difficulty: Beginner
Date Added: Wed 3rd February 2021
Rating: 
(6 Votes)
Here is a simple custom font dialog. Using the API
EnumFontFamily, it finds all TrueType and Fixed width
fonts. The font names are displayed, w/icon, in a listview.
A slider control allows continuous scrolling of font size.
A sample of the font at the selected size and style is displayed.
A DrawFameOn routine is included which is used to frame
all the controls (see screen shot).
Assumes
Written in VB6 and requires ListView, ImageList, and
Slider controls.
Code Returns
FontName
FontSize
FontStyle
Underline effect
StrikeThru effect
Download CustFont (6 KB)
VBcoders