1、添加(sle_1.text)控件
2、添加按钮控件,代码如下
if sle_1.text<>"" then
if fileexists(sle_1.text) then
p_1.picturename=sle_1.text
p_1.height=1500
p_1.width=2000
else
messagebox ("提示","文件不存在",Exclamation!)
end if
else
messagebox ("提示","请输入图像文件名",Exclamation!)
end if