请教：有什么办法让顶层表单编译后仍可更换背景图片？
请教：有什么办法让顶层表单编译后仍可更换背景图片，并以最后更新图片为背景？
[解决办法]
1.把背景图片存入table
2.表单的背景动态抓table中和图片
3.程序中设一个菜单来更换背景图,更换后把图存入table
[解决办法]
新建一个表 tpic
该表只有一个字段,filepath
类型为C 或备注
如果为C
设置字段长度为 250
该字段的作用是用来保存顶层表单背景图片的地址
假设表单上有一个按钮
其功能用来更换表单背景图片
代码为
lcpath = sys(5) + sys(2003)
lcPicFile = Getpict()
if !empty(lcPicFile)
thisform.picture = lcPicFile
if used('tpic')
select tpic
else
use tpic
endif
repl filepath with lcPicFile
endif
set defa to (lcpath)
[解决办法]
直接更改表单的 Picture 属姓即可。
如果更用的图片是同名的，更改前先
CLEAR RESOURCES 图片文件名
[解决办法]
如果网络版的程序，建议采取把图片存入数据库或存入Ftp路径。
