简易小型的图片查看器

.如果真 (图片框1.图片 ＝ 到字节集 (“”))
信息框 (“无图片文件！”, #警告图标 ＋ 0, “警告：”, )
返回 ()
.如果真结束
通用对话框1.标题 ＝ “图片另存为”
通用对话框1.类型 ＝ 1
通用对话框1.过滤器 ＝ “图片文件（*.jpg;*.bmp;*.png;*.gif;*.ico;)|*.jpg;*.bmp;*.png;*.gif;*.ico|所有文件（.*)|*.*”
通用对话框1.打开 ()
通用对话框1.初始目录 ＝ 通用对话框1.文件名
写到文件 (通用对话框1.文件名, 图片框1.图片)
.如果真 (寻找文件 (, ) ≠ 通用对话框1.文件名)
.如果真 (信息框 (“文件未保存！请问是否重新保存”, #警告图标 ＋ #是否钮, “确认：”, ) ＝ #是钮)
通用对话框1.打开 ()
.如果真结束
返回 ()
.如果真结束
.如果真 (信息框 (“文件保存成功！请问是否退出？”, 64 ＋ #是否钮, “提示：”, ) ＝ #是钮)
结束 ()