【VB开源代码栏目提醒】：本文主要为网学会员提供Ex9_5.frm，希望对需要Ex9_5.frm网友有所帮助，学习一下!

    VERSION 5.00
    Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
    Begin VB.Form Ex9_5 
       Caption         =   "使用""颜色""对话框"
       ClientHeight    =   2445
       ClientLeft      =   60
       ClientTop       =   450
       ClientWidth     =   4755
       LinkTopic       =   "Form1"
       ScaleHeight     =   2445
       ScaleWidth      =   4755
       StartUpPosition =   3  '窗口缺省
       Begin VB.CommandButton Command4 
          Caption         =   "帮助"
          Height          =   375
          Left            =   3600
          TabIndex        =   4
          Top             =   1920
          Width           =   615
       End
       Begin VB.CommandButton Command3 
          Caption         =   "打印"
          Height          =   375
          Left            =   2880
          TabIndex        =   3
          Top             =   1920
          Width           =   615
       End
       Begin VB.CommandButton Command2 
          Caption         =   "设置字体"
          Height          =   375
          Left            =   1800
          TabIndex        =   2
          Top             =   1920
          Width           =   975
       End
       Begin MSComDlg.CommonDialog CommonDialog1 
          Left            =   0
          Top             =   1920
          _ExtentX        =   847
          _ExtentY        =   847
          _Version        =   393216
       End
       Begin VB.CommandButton Command1 
          Caption         =   "设置颜色"
          Height          =   375
          Left            =   600
          TabIndex        =   1
          Top             =   1920
          Width           =   1095
       End
       Begin VB.TextBox Text1 
          Height          =   1335
          Left            =   240
          MultiLine       =   -1  'True
          TabIndex        =   0
          Top             =   240
          Width           =   3975
       End
    End
    Attribute VB_Name = "Ex9_5"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Private Sub Command1_Click()
        CommonDialog1.Flags = cdlCCFullOpen '显示全部对话框，包括定义自定义颜色部分
        CommonDialog1.ShowColor        '打开颜色对话框
        Text1.ForeColor = CommonDialog1.Color   '获得颜色
    End Sub
    
    Private Sub Command2_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
    
    Private Sub Command3_Click()
        Dim BeginPage, EndPage, NumCopies, i
        CommonDialog1.CancelError = True                        ' 设置"取消"为 True
        On Error GoTo ErrHandler
        CommonDialog1.ShowPrinter                                   ' 显示"打印"对话框
        BeginPage = CommonDialog1.FromPage                      ' 从该对话框取得选定的值
        EndPage = CommonDialog1.ToPage
        NumCopies = CommonDialog1.Copies
        For i = 1 To NumCopies
            ' 此处放置将数据发送到打印机的代码
        Next i
        Exit Sub
    ErrHandler:
                                                            ' 用户按了"取消"按钮
        Exit Sub
    
    End Sub
    
    Private Sub Command4_Click()
        CommonDialog1.CancelError = True        ' 设置"取消"为 True
        On Error GoTo ErrHandler
        CommonDialog1.HelpCommand = cdlHelpForceFile    '设置HelpCommand属性
        '指定帮助文件
        CommonDialog1.HelpFile = "c:\windows\system32\winhelp.hlp"
        CommonDialog1.ShowHelp    '打开帮助文件
        Exit Sub
    ErrHandler:                   ' 单击"取消"按钮，退出应用程序
        Exit Sub
    
    End Sub