Visual Basic Concepts

  • Article

Using the Font Dialog Box

The Font dialog box allows the user to select a font by its size, color, and style. Once the user makes selections in the Font dialog box, the following properties contain information about the user's selection.

Property Determines
Color The selected color. To use this property, you must first set the Flags property to cdlCFEffects.
FontBold Whether bold was selected.
FontItalic Whether italic was selected.
FontStrikethru Whether strikethrough was selected.
FontUnderline Whether underline was selected.
FontName The selected font name.
FontSize The selected font size.

Figure 7.14   The Font dialog box

To display the Font dialog box

  1. Set the Flags property to one of the following Visual Basic constant values:

    • cdlCFScreenFonts (screen fonts)

    • cdlCFPrinterFonts (printer fonts)

    • cdlCFBoth (for both screen and printer fonts)

      Caution   You must set the Flags property to one of these values before displaying the Font dialog box. Otherwise, the error No fonts exist occurs.

  2. Use the ShowFont method to display the dialog box.

The following code sets the font properties for a text box based on a user's selections in the Font dialog box:

Private Sub Command1_Click ()
   ' Set Cancel to True.
   CommonDialog1.CancelError = True
   On Error GoTo ErrHandler
   ' Set the Flags property.
   CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects
   ' Display the Font dialog box.
   CommonDialog1.ShowFont
   ' Set text properties according to user's
   ' selections.
   Text1.Font.Name = CommonDialog1.FontName
   Text1.Font.Size = CommonDialog1.FontSize
   Text1.Font.Bold = CommonDialog1.FontBold
   Text1.Font.Italic = CommonDialog1.FontItalic
   Text1.Font.Underline = CommonDialog1.FontUnderline
   Text1.FontStrikethru = CommonDialog1.FontStrikethru
   Text1.ForeColor = CommonDialog1.Color
   Exit Sub
ErrHandler:
   ' User pressed Cancel button.
   Exit Sub
End Sub

For More Information   See "CommonDialog Control Constants" for a complete list of Flag property constants.