|
#2
radiofan2021-05-18 08:04
给出有问题的图片和代码，不然人家怎么帮你解决问题呀
 |
在某A表单运行后，感觉还可以把单据图片显示出来。于是在目录中添加了一个图片文件夹用于存放单据图片
然后又建立了一个地址表B，二个字段，一个文字型，用来存放图片地址(绝对路径)，一个数据型和A表ID关联，在A表单上增加一个按钮，用以调用B表单（图片显示)。
另创建B表单，专门显示图片。
按钮代码如下
PUBLIC nID ,C图片地址
SELE A表
nID=ID
SELE B表
LOCATE FOR A表ID=nID
IF Found()
c图片地址=alltrim(B表.地址)
DO FORM C:**\B表单图片显示
else
=messagebox('本记录无单据.',0+48+0,'提示')
endif
B表单只有二个个控件，IMAGE1和退出按钮
在B表单的属性ACTIVATE EVENT 写入代码如下:
if empty(c图片地址)=.f.
thisform.image1.picture=c单据地址
endif
thisform.refresh
OK 运行正常。
但是几天后，添加一图片后，无法显示，呈死循环状况。表单可以显示，图片无法显示，然后死机。
开始以为是程序有问题，反复检查，没有发现问题。又以为是图片地址（路径）有误，也没有发现。
最后才发现，其它图片可以正常显示，表单也可以正常运行和退出。只有调用这张图片的时候，就出问题。
我的解决办法就是重新制作一张同名图片，放到同一地址，删除原有图片。程序运行正常。
疑惑，图片可以影响程序的运行?感觉不会。
