2013年计算机二级考试VB基础教程：通用对话框控件_第3页

　　下面的过程可用字体对话框改变文本框的字体:

　　Private Sub mnuFonts_Click ()

　　On Error GoTo CancelButton

　　CommonDialog1.CancelError = True

　　CommonDialog1.Flags = cdlCFBoth ' Flags property must be set to cdlCFBoth

　　CommonDialog1.ShowFont ' Display Font common dialog box.

　　Text1.FontName = CommonDialog1.FontName

　　Text1.FontSize = CommonDialog1.FontSize

　　Text1.FontBold = CommonDialog1.FontBold

　　Text1.FontItalic = CommonDialog1.FontItalic

　　Text1.FontUnderline = CommonDialog1.FontUnderline

　　Text1.FontStrikethru = CommonDialog1.FontStrikethru

　　Text1.ForeColor = CommonDialog1.Color

　　CancelButton:

　　Exit Sub

　　End Sub

　　代码的第三行出现了通用对话框的Flags属性决定了通用对话框的一些可选项，不过即使不赋值给Flags，代码也一样会按缺省的情况去执行的。