Search Tools Links Login

CustFont


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).

Original Author: Rob Bogdanoff

Assumptions

Written in VB6 and requires ListView, ImageList, and
Slider controls.

Returns

FontName
FontSize
FontStyle
Underline effect
StrikeThru effect

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 102 times

Categories

Visual Basic 6

Attachments

CODE_UPLOAD7379722000.zip
Posted: 9/3/2020 3:45:00 PM
Size: 6,767 bytes


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.