VFP问题:怎样可以让自己做的软件在每次运行时的背景图片都不一样?

来源:百度知道 编辑:UC知道 时间:2024/05/28 18:47:34
看到了有些人用VFP做的进销存软件,在每次运行程序时,它的主界面的背景图片都不一样。自己也想做个,但不知道怎样做?具体的方法和步骤是怎样的?谢谢了……
随机函数我也想过,动态连接库我也想过,但具体是怎样做?无从下手!给出随机函数rand〔〕如何随机选取指定文件夹里的图片语句即可!

做一个数据表,把你的图片的名称写入数据表中,然后利用随机函数,指出选择表中的该条记录,再把此条记录对于的文件名写入图片的picture属性中
use lsb
if RAnD()>3 or RAnD()<1
goto bott
else
goto rand()
endif
m_wjm=wjm
thisform.image1.picture=m_wjm
上面的程序我试了,没有问题的,只是怎么限制那个随机数的取值我不太清楚,那个3是因为我的表中只有3条记录

rand()抽取随机数然后决定选哪个图片,详细需要编程实现
你想自己做,情做到需要那段程序的时候遇到困难再提问

或者你想修改他的桌面,先看看他背景图片的存放位置,然后把你做的图片放进去覆盖他原来自带的即可

现在忙,一会我给你做

tplx='*.jpg' &&图片类型
tpmc=sys(2000,tplx) &&图片名称
tpsl=iif(empty(tpmc),0,1) &&图片数量
if tpsl=0 &&没有返回
wait'没有找到图片......'
return
endif
do while !empty(sys(2000,tplx,1))
tpsl=tpsl+1
enddo
dimension tpmc(tpsl) &&按图片数量多少定义数组
tpmc(1)=sys(2000,tplx)
for aa=2 to tpsl &&把图片名称依次存入数组
tpmc(aa)=sys(2000,tplx,1)
endfor
tpxs=tpmc(rand()*(tpsl-1)+1) &&取得随机图片名称
* 上1句,因为随机可能取到0,所以