急!图片保存问题?我用对话保存文件,当我用点击"取消"时,就出错,如果点击"保存"时,就没有问题.

Question

急!我用对话保存文件,当我用点击"取消"时,就出错,如果点击"保存"时,就没有问题.
代码如下:
CommonDialog1.ShowSave
   SavePicture Picture1.Image, CommonDialog1.FileName '保存图片框内容
   blchange = False是不是少代码了?

Answer 1

将 CommonDialog1 控件的 “取消引发错误”选项去掉，或者改成：on error goto saveErrCommonDialog1.ShowSave
   if len(CommonDialog1.FileName)>0 then
   SavePicture Picture1.Image, CommonDialog1.FileName '保存图片框内容
   end if
   blchange = False   exit subsaveErr:
   msgbox "取消保存"

Answer 2

楼上正解
当点取消的时候  CommonDialog1.FileName 的值应该是空 所以LZ代码当然会报错