DlgCreateFont

Syntax

DlgCreateFont(FontName[, FontHeight][, FontWidth][, Bold][, Italic][, _
Underline][, StrikeThru])

Description

Create an instance of a new font object and return the Fontname Windows handle from the newly created font.

Font objects are used in dialog boxes to change the appearance of the dialog items. The returned handle should be stored in a module-level or global-level declared variable, so it's value can be read from within a dialogfunc routine.

Parameter	Description
FontName	The family name of the font to be created. Required.
FontHeight	Optional. The size of the font in point. Default value=10
FontWidth	Optional. Changes the width of the font. Default value=0 which means: do not change Note: not all font families support alternate width settings.
Bold	Optional. Make the font bold Note: not all font families support bold settings.
Italic	Optional. Set the font in italic
Underline	Optional. Underlines the font characters
StrikeThru	Optional. Make the characters appear with strike through.

See Also

DlgDeleteFont, DlgSetFont

Example

Dim hFont As Long

Sub Main

Begin Dialog UserDialog 400,203,"FontTest",.userFunction ' %GRID:10,7,1,1

Text 30,14,100,35,"Text1",.Text1

TextBox 150,14,110,35,.TextBox1

OKButton 90,70,90,21

End Dialog

Dim dlg As UserDialog

hFont = DlgCreateFont("FixedSys")

Dialog dlg

DlgDeleteFont hFont

End Sub

Private Function userFunction(DlgItem$, Action%, SuppValue&) As Boolean

Select Case Action%

Case 1 ' Dialog box initialization

DlgSetFont SuppValue, DlgControlId("Text1"), hFont

Case 2 ' Value changing or button pressed

Case 3 ' TextBox or ComboBox text changed

Case 4 ' Focus changed

Case 5 ' Idle

Case 6 ' Function key

End Select

End Function