如何设置CommonDialog颜色的初始值

编号：QA003571
建立日期: 2000年11月22日 最后修改日期：2000年11月22日
所属类别：

Visual Basic - 标准控件

Feng:
    操作系统: win98
    编程工具: vb6.0
    问题:
    Private Sub Command1_Click()
    CommonDialog1.ShowColor
    Text1.ForeColor = CommonDialog1.Color
    End Sub
    我执行了以上程序后，进入选颜色时，初始值总是为黑色，我的问题就是：1、怎样设置它的初始值？2、当按取消后text1的前景色就变黑了怎样解决？万分感激！
    水平: 刚入门

回答:

    1、将Flags属性设置为cdlCCRGBInit，则CommonDialog就会把Color属性作为初始值。
    2、将CancelError 属性设置为True。这样如果用户选择Cancel，VB就会报错。你可以这样处理：
    Private Sub Command1_Click()
    On Error GoTo ErrExit
    CommonDialog1.ShowColor
    Text1.ForeColor = CommonDialog1.Color
    ErrExit:
     Exit Sub
    End Sub

此问题由李海回答。

把这个问题推荐给朋友         您的意见类别 更好的答案 希望得到进一步解释 我有有关代码可以提供给网友 链接错误 文字错误 其他 您的名字 您的电子邮件 您的建议(请尽可能详细)