求教：如何动态调用图片？ - VFP论坛

编程论坛 → 数据库技术 → 『 VFP论坛』 → 求教：如何动态调用图片？

标题：求教：如何动态调用图片？

只看楼主

fengwenduo

等　级：新手上路
帖　子：14
专家分：1
注　册：2012-10-30
结帖率：50%

楼主

已结贴√ 问题点数：20 回复次数：7

求教：如何动态调用图片？

求教：如何动态调用图片？
n=thisform.text2.value
zp=d:\vfp\vfp\vfp\+alltrim(n)+'.jpg'
ThisForm.Image1.Picture=&zp
ThisForm.Image1.Refresh
那有为题？

搜索更多相关主题的帖子: 如何　动态　图片　

2012-10-30 21:48

jsyg

等　级：论坛游民
威　望：1
帖　子：75
专家分：38
注　册：2012-10-20

第 2 楼

得分:3

回复楼主 fengwenduo

应该是丢了单引号了吧
zp='d:\vfp\vfp\vfp\'+alltrim(n)+'.jpg'

2012-10-30 21:58

tlliqi

等　级：贵宾
威　望：204
帖　子：15453
专家分：65956
注　册：2006-4-27

第 3 楼

得分:3

以下是引用jsyg在2012-10-30 21:58:50的发言：

应该是丢了单引号了吧
zp='d:\vfp\vfp\vfp\'+alltrim(n)+'.jpg'

是这样

2012-10-31 00:22

hu9jj

来　自：红土地
等　级：贵宾
威　望：396
帖　子：11713
专家分：43267
注　册：2006-5-13

第 4 楼

得分:3

除了2楼提出的问题之外，第2行也存在问题。
n=thisform.text2.value
zp=“d:\vfp\vfp\vfp\”+alltrim(str（n）)+'.jpg'
ThisForm.Image1.Picture=&zp
ThisForm.Image1.Refresh

还必须保证路径及文件名没有问题，否则也会出错的。

[ 本帖最后由 hu9jj 于 2012-10-31 08:33 编辑 ]

活到老，学到老！ http://www. E-mail:hu-jj@

2012-10-31 08:30

wengjl

等　级：贵宾
威　望：108
帖　子：2175
专家分：3785
注　册：2007-4-27

第 5 楼

得分:3

还要加上判断
n=thisform.text2.value

if file(“d:\vfp\vfp\vfp\”+alltrim(str（n）)+'.jpg')
zp=“d:\vfp\vfp\vfp\”+alltrim(str（n）)+'.jpg'
ThisForm.Image1.Picture=&zp
ThisForm.Image1.Refresh
else
messagebox()
endif

只求每天有一丁点儿的进步就可以了

2012-10-31 09:12

qjbzjp