vfp中如何在备注型字段插入图片文件
2个回答
展开全部
VFP9:
&& 表1 中“图片”是备注型字段,图片支持多种格式 BMP,JPG,GIF,TIF,PNG......
&& 保存图片到备注型字段
LOCAL cFile, cStr
IF !USED('表1')
USE 表1 IN 0
ENDIF
cFile = GETPICT()
IF EMPTY(cFile)
RETURN
ENDIF
SELECT 表1
REPLACE 图片 WITH FILETOSTR(cFile) IN 表1
&& 显示图片
thisform.image1.PictureVal = 表1.图片
VFP6 的话,将会很烦,因为没有 FILETOSTR() 函数,所以要调用低级文件函数,又由于 VFP6 image 控件没 PictureVal 属性,所以只能单一支持 BMP 或 JPG 文件显示...
&& 表1 中“图片”是备注型字段,图片支持多种格式 BMP,JPG,GIF,TIF,PNG......
&& 保存图片到备注型字段
LOCAL cFile, cStr
IF !USED('表1')
USE 表1 IN 0
ENDIF
cFile = GETPICT()
IF EMPTY(cFile)
RETURN
ENDIF
SELECT 表1
REPLACE 图片 WITH FILETOSTR(cFile) IN 表1
&& 显示图片
thisform.image1.PictureVal = 表1.图片
VFP6 的话,将会很烦,因为没有 FILETOSTR() 函数,所以要调用低级文件函数,又由于 VFP6 image 控件没 PictureVal 属性,所以只能单一支持 BMP 或 JPG 文件显示...
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询