[求助]关于图片选择,该名,应用的问题
我的表单内有一个按钮,想让它实现本地浏览图片,复制到我创建的文件夹下并该名?请论坛内的高手指点我,在此先谢谢各位了.
[此贴子已经被作者于2007-4-27 11:13:52编辑过]
哈哈,成功了.作了一下午.现在发上来.
程序是:
mz="\毕业设计\udata\"+thisform.pageframe1.page1.text1.value+".jpg"
pictemp=getpict("","选择照片","导入")
If !empty(pictemp)
Wait windows "正在导入相片,请等待!......." at 50,80 timeout 2 nowait
copy file "&pictemp" to &mz
mm=filetostr("&mz")
replace xs.zp witch mm
thisform.pageframe1.page1.image1.picture=mz
ENDIF
Thisform.refresh