.版本 2
.' 如果真 (通用对话框2.打开 ())
' 写到文件 (通用对话框2.文件名, 画板1.底图)
' ' 写到文件 (通用对话框2.文件名, 画板1.取图片 (, ))
.如果真结束
' 拷贝底图功能
' 画板1.底图 = 画板2.取图片 (, )
.' 如果真 (通用对话框2.打开 ())
' 写到文件 (通用对话框2.文件名, 画板1.底图)
' ' 写到文件 (通用对话框2.文件名, 画板1.取图片 (, ))
.如果真结束
' 拷贝底图功能
' 画板1.底图 = 画板2.取图片 (, )