主题:请教图片显示问题
jcjfhy
[专家分:0] 发布于 2009-10-10 09:38:00
请教高手,我在一个表单中想根据记录号依次显示一个文件夹中的jpg照片,请问是在哪个控件或设置哪个属性值来实现的,谢谢
回复列表 (共5个回复)
沙发
sywzs [专家分:5650] 发布于 2009-10-10 10:49:00
在表单上放置图像控件,即 IMAGE 控件
设置图像控件的 picture 属性等于图像文件名(包括扩展名和路径)
板凳
jcjfhy [专家分:0] 发布于 2009-10-10 13:52:00
请教老师,如果我在同一个文件夹中有多张照片,那如何才能达到"浏览"的效果呢?谢谢
3 楼
sywzs [专家分:5650] 发布于 2009-10-10 14:03:00
依次改变图像控件的 picture 属性的值。
4 楼
jcjfhy [专家分:0] 发布于 2009-10-10 15:49:00
老师您好:您的回复还没有达到我的要求.是这样,有一个DBF表,表中有编号、姓名两个字段(表中有5条记录)。又有一个表单,表单与DBF表关联,当按下表单中的“下一记录”按钮时,表单中能依次显示各条记录,但还有5张JPG照片,怎样才能使得编号、姓名、照片同步显示呢?谢谢
5 楼
sywzs [专家分:5650] 发布于 2009-10-11 06:43:00
首先在当前文件夹下建一个“照片”文件夹,把JPG照片放入其中。
“下一记录”按钮的 click 事件
if !eof()
skip
thisform.text1.value=编号
thisform.text2.value=姓名
thisform.image1.picture=照片 &&如果有照片字段的话,此字段存放照片路径和文件名(包括扩展名)
*或者如果没有照片字段而照片名用编号命名,用以下两语句
*zpm=".\照片\"+alltrim(编号)+".jpg"
*thisform.image1.picture=zpm
endif
“前一记录”按钮的 click 事件与以上代码相似
if !bof()
skip -1
.....
endif
我来回复