UC知道请问一下，以下各VB程序行的意思？
来源：百度知道 编辑：UC知道 时间：2024/06/17 23:28:31
请问一下，以下各VB程序行的意思？这是一个修改窗体背景色的程序。以下第三行，第四行的属性语言，及ERRHANDLER是何意？
Private Sub command1_click()
CommonDialog1.cancelerror = True
On Error GoTo errhandler
CommonDialog1.flags = cdlccrgbinit
CommonDialog1.showcolor
Form1.BackColor = CommonDialog1.Color
Exit Sub
errhandler:
End Sub
Private Sub command1_click()
CommonDialog1.cancelerror = True
On Error GoTo errhandler
CommonDialog1.flags = cdlccrgbinit
CommonDialog1.showcolor
Form1.BackColor = CommonDialog1.Color
Exit Sub
errhandler:
End Sub
cdlCCRGBInit 为对话框设置初始颜色值
Private Sub command1_click()
CommonDialog1.cancelerror = True '//当按下公共对话框控件的“取消”按钮时发生一个错误
On Error GoTo errhandler '//跳转到errhandler标签
CommonDialog1.flags = cdlccrgbinit '//对话框的一个类型设置
CommonDialog1.showcolor '//显示“选择颜色对话框”
Form1.BackColor = CommonDialog1.Color '//使Form1的背景色为“选择颜色对话框”里选择的颜色
Exit Sub '//跳出过程
errhandler: '//定义一个标签，可以用GOTO语句跳转到这个标签
End Sub
On Error GoTo errhandler 错误处理 遇错程序跳到errhandler: 这一行
errhandler: 只是一个标识符
'设置 Flags 属性。
CommonDialog1.Flags = cdlCCRGBInit
'显示“颜色”对话框。
CommonDialog1.ShowColor