| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 789 人关注过本帖
标题:[求助]关于图片选择,该名,应用的问题
只看楼主 加入收藏
cyru008
Rank: 1
等 级:禁止访问
帖 子:70
专家分:0
注 册:2007-4-25
收藏
 问题点数:0 回复次数:4 
[求助]关于图片选择,该名,应用的问题
我的表单内有一个按钮,想让它实现本地浏览图片,复制到我创建的文件夹下并该名?
请论坛内的高手指点我,在此先谢谢各位了.

[此贴子已经被作者于2007-4-27 11:13:52编辑过]

搜索更多相关主题的帖子: 应用 选择 
2007-04-27 11:13
songyuyu
Rank: 8Rank: 8
等 级:贵宾
威 望:47
帖 子:6090
专家分:25
注 册:2007-1-17
收藏
得分:0 
实现本地浏览图片 putfile( ) 函数
复制 COPY TO
改名 rename FileName1 TO FileName2

我喝水只喝纯净水,牛奶只喝纯牛奶,所以我很单纯……
2007-04-27 11:24
cyru008
Rank: 1
等 级:禁止访问
帖 子:70
专家分:0
注 册:2007-4-25
收藏
得分:0 
谢谢,今天我又学会了许多,哈哈
我编的程序是:
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

它只能添加\Vfp98\下面的图片,如果添加别处的图片就会出现"命令中含有不能识别的短语或关键字"这种情况
挂起时它显示"->copy file &pictemp to &mz"
这是为什么?

2007-04-27 14:49
cyru008
Rank: 1
等 级:禁止访问
帖 子:70
专家分:0
注 册:2007-4-25
收藏
得分:0 

哈哈,成功了.作了一下午.现在发上来.
程序是:
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


2007-04-27 23:39
cyru008
Rank: 1
等 级:禁止访问
帖 子:70
专家分:0
注 册:2007-4-25
收藏
得分:0 
对不起,上面的应该是
copy file "&pictemp" to "&mz"

2007-04-28 09:55
快速回复:[求助]关于图片选择,该名,应用的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.022483 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved