使用“字体”对话框

“字体”对话框根据大小、颜色、样式选择字体。用户一旦在“字体”对话框中选定字体后，下列属性就会包含有关用户选项的信息。

属性	决定
Color	选定的颜色。为使用此属性，必须先将 Flags 属性设置为 cdlCFEffects。
FontBold	是否选定“粗体”。
FontItalic	是否选定“斜体”。
FontStrikethru	是否选定删除线。
FontUnderline	是否选定下划线。
FontName	选定的字体名称。
FontSize	选定的字体大小。

图 7.14 “字体”对话框

要显示“字体”对话框

将 Flags 属性设置为下述 Visual Basic 常数之一：
- cdlCFScreenFonts（屏幕字体）
- cdlCFPrinterFonts（打印机字体）
- cdlCFBoth（既可以是屏幕字体又可以是打印机字体）
小心在显示“字体”对话框之前必须将 Flags 属性设置为这些数值之一，否则将发生不存在字体错误。
用 ShowFont 方法显示对话框。

下列代码根据用户在“字体”对话框中的选择来设置文本框的字体属性：

Private Sub Command1_Click ()
   '将 Cancel 设置成 True。
   CommonDialog1.CancelError = True
   On Error GoTo ErrHandler
   '设置 Flags 属性。
   CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects
   '显示“字体”对话框。
   CommonDialog1.ShowFont 
   '根据用户的选择来设置
   '文本属性。
   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:
   '用户按了“取消”按钮。
   Exit Sub
End Sub

详细信息 关于 Flag 属性常数的完整列表，请参阅《语言参考》的“CommonDialog 控件常数”。