PictureVal很怪异是吗?在VFP里没有问题,编译exe,却不显示图像,也不报出错!
PictureVal很怪异是吗?在VFP里没有问题,编译exe,却不显示图像,也不报出错!大家遇到没有?
Select dbf语丝
**总数,ID,内容,类别,上传作者,上传日期
GO INT(RECCOUNT() * RAND() + 1)
GO 11
This.Parent.tipsText.caption = ALLTRIM(dbf语丝.内容)
IF ISNULL(dbf语丝.配图)
This.Parent.TipsPic.visible = .F.
This.Parent.TipsPic.Picture = ""
this.Parent.tipsText.Left = 12
this.Parent.tipsText.width = 217
ELSE
IF !DIRECTORY(MyPath + "temp")
MKDIR (MyPath + "temp")
ENDIF
IF !FILE(dbf语丝.配图,MyPath + "temp\语丝配图." + ALLTRIM(STR(dbf语丝.ID)) + "." + dbf语丝.配图格式)
=Strtofile(dbf语丝.配图,MyPath + "temp\语丝配图." + ALLTRIM(STR(dbf语丝.ID)) + "." + dbf语丝.配图格式)
ENDIF
&& This.Parent.TipsPic.PictureVal = CAST(dbf语丝.配图 as W) 这句怎么也不行,只好用下面一句生成图像文件再显示!好晕。
This.Parent.TipsPic.Picture = MyPath + "temp\语丝配图." + ALLTRIM(STR(dbf语丝.ID)) + "." + dbf语丝.配图格式
this.Parent.tipsText.Left = 90
this.Parent.tipsText.width = 139
This.Parent.TipsPic.visible = .T.
ENDIF
补图1,在VFP中运行效果:
补图2,exe运行效果:
[此贴子已经被作者于2016-6-14 21:33编辑过]