易语言-打开图片文件设置画板宽度高度

.版本 2
.支持库 BmpOperate


.局部变量 位图宽度, 整数型
.局部变量 位图高度, 整数型


.如果真 (通用对话框1.打开 ())


    画板1.底图 ＝ 读入文件 (通用对话框1.文件名)
    输出调试文本 (通用对话框1.文件名)
    位图.载入文件 (通用对话框1.文件名)


    位图宽度 ＝ 位图.取宽度 ()
    位图高度 ＝ 位图.取高度 ()
    画板1.宽度 ＝ 位图宽度
    画板1.高度 ＝ 位图高度
    画板2.宽度 ＝ 位图宽度
    画板2.高度 ＝ 位图高度


    输出调试文本 (位图宽度)
    输出调试文本 (位图高度)