
局部变量 文件路径 文本型
局部变量 文件名 文文型
局部变量 n 文本型 数组0
文件路径=“D:\\”
文件名=寻找文件(文件路径+“**”,,)
判断循环首(文件名≠“”)
加入成员(n,文件路径+文件名)
文件名=寻找文件(,)
判断循环尾()
置随机数种子()
如果真(取数组成员数(n)≠0)
框1=读入文件(n[取随机数(1,取数组成员数(n))])
如果真结束
请教如何编写VBA代码,每次单击按钮时,能在同一页演示文稿(如文本框)中随机抽取指定文件夹下(或与当前演示文稿中在同一文件夹下)的任意一张,每次抽取的均为不相同的一幅,在抽取完成后还可以提示用户“抽取完毕”,点击另一控件按钮,可以实现清空文本框中的内容(),以便重新抽取
把如下代码加入<body>区域中
<SCRIPT language="JavaScript"><!--
today=new Date();
jran=todaygetTime();
function rnd() {
ia=9301;
ic=49297;
im=233280;
jran = (jrania+ic) % im;
return jran/(im10);
};
function rand(number) {
return Mathceil(rnd()number);
};
documentwrite("<CENTER>");
for(i=1;i<=1;i++) {
myNum=(rand(10)); //改成你要随机显示的数;
if(myNum == 1) documentwrite("<img src='backjpg'>");
if(myNum == 2) documentwrite("<img src='j2gif'>"); //路径,可用>
以上就是关于易语言:怎么随机取一个文件夹中的图片放在图片框全部的内容,包括:易语言:怎么随机取一个文件夹中的图片放在图片框、请教如何随机(不重复)抽取指定文件夹下的图片之一、做了一个网页,怎么随机读取图片等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)