VB中commondialog的问题

比如下列代码

private sub command1_click()

commondialog1.showopen

picture1.picture=commondialog1.filename

form1.paintpicture picture1.picture

end sub

问题是在要怎么判断commondialog窗口选的是确定还是取消？

不然在运行时点取消时会运行错误，要是能判断取消就能终止执行

难道要用on error goto？

用on error resume next语句：

private sub command1_click()

on error resume next

……

写上你按下确定按钮时的代码

……

if err.number=cdlcancel then ‘如果你按下的是取消按钮，那么就退出

exit sub

end If

end sub

VB6中只能这样 如果是VB.net可以返回你选择了哪个按钮

VB6的话 ComonDialog1.CancelError = True 设置错误陷阱，如果点击“取消”就触发错误陷阱。

private sub command1_click()

Commondialog1.showopen

if commondialog1.filename<>"" then

picture1.picture=commondialog1.filename

form1.paintpicture picture1.picture

end If

end sub