CommonDialog1。文件名= " "
CommonDialog1。顯示保存
If CommonDialog1。文件名& lt& gt”“那麽
保存圖片圖片1。Image,CommonDialog1。文件名
如果…就會結束