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

以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

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>