随机函数
,指出选择表中的该条记录,再把此条记录对于的文件名写入图片的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条记录
with _screen.caption='[管理系统]'
.backcolor=rgb(64,128,128)
.maxbutton=.t.
.windowstate=2
.picture='fm.gif' &&背景没斗图团世片塌察肢
endwith
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)