Question

vb 实时错误481 无效图片 paintpicture

采用CommonDialog对话框，打开能正常进行，打开后，如果点击“取消”或者右上角的红叉按钮，则会出现vb 实时错误481 无效图片 ，求大神指点

Private Sub Command1_Click()
CommonDialog1.DialogTitle = "选择图片文件" '保存对话框框头提示
CommonDialog1.Filter = "bmp图片(*.bmp)\*.bmp\jpg图片(*.jpg)\*.jpg\gif图片(*.gif)\*.gif\所有文件(*.*)\*.*"
CommonDialog1.Action = 1
Text1.Text = CommonDialog1.FileTitle
Picture2.Cls '清空图像
Picture2.Picture = LoadPicture(CommonDialog1.FileName) '载入图像
Picture2.AutoRedraw = True
Picture2.PaintPicture Picture2.Picture, 0, 0, 6735, 4335, , , , , vbSrcCopy '原位图直接覆盖目标位图
Picture2.Refresh
End Sub
求大神指点，不胜感激！

Answer 1

点击取消后当然CommonDialog1.FileName包含的不是一个有效的图片文件名。

Private Sub Command1_Click()
CommonDialog1.CancelError=true '设置这个属性使点击取消时会产生一个运行时错误。是不是CancelError，在属性窗口中核实一下，我可能会拼错。
CommonDialog1.DialogTitle = "选择图片文件"    '保存对话框框头提示
CommonDialog1.Filter = "bmp图片(*.bmp)\*.bmp\jpg图片(*.jpg)\*.jpg\gif图片(*.gif)\*.gif\所有文件(*.*)\*.*"
on error goto exit_ '如果点击取消即捕获错误，直接跳出过程好了
CommonDialog1.Action = 1
Text1.Text = CommonDialog1.FileTitle
Picture2.Cls      '清空图像
Picture2.Picture = LoadPicture(CommonDialog1.FileName)   '载入图像
Picture2.AutoRedraw = True
Picture2.PaintPicture Picture2.Picture, 0, 0, 6735, 4335, , , , , vbSrcCopy  '原位图直接覆盖目标位图
Picture2.Refresh
exit_:
End Sub