如何设置commondialog颜色的初始值.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 10 行

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 
<END>