把名改为从1、2、3。。。到N
Random ra = new Random(unchecked((int)DateTimeNowTicks));
int temp = raNext(0,N);
取出一个随机数,然后组合成的名称,当然你也可以组合成的路径。
STRING STR=tempToString()+"jpg";
这样就出来了。呵呵。简单易用。
命名成比如是1jpg,2jpg……100jpg,并假设所在文件夹为“/images”,代码如下:
<%
randomize
responsewrite "<img src=""/images"&int(rnd()100+1)&"jpg"">"
%>
请教如何编写VBA代码,每次单击按钮时,能在同一页演示文稿(如文本框)中随机抽取指定文件夹下(或与当前演示文稿中在同一文件夹下)的任意一张,每次抽取的均为不相同的一幅,在抽取完成后还可以提示用户“抽取完毕”,点击另一控件按钮,可以实现清空文本框中的内容(),以便重新抽取
在窗体上添加图像控件数组img1(0),img1(1),img1(2),img1(3),在属性窗体中把这个控件的Picture属性设置为Card1bmp,然后往窗体上添加cmdChange的控件按钮,并编写Click事件:
Private Sub cmdChange_Click()
dim ingchange as integer,i as integer
dim file(3) as string
file(0)="文件位置"
file(1)="文件位置"
file(2)="文件位置"
file(3)="文件位置"
for i=0 to 3
ingchange=int(4RND)
select case ingchange
case 0
img1(i)Picture=LoadPicture(file(0))
case 1
img1(i)Picture=LoadPicture(file(1))
case 2
img1(i)Picture=LoadPicture(file(2))
case 3
img1(i)Picture=LoadPicture(file(3))
End Select
Next
当然了,上面的程序有可能产生两张一样。
以上就是关于求教,怎么用.net实现随机抽取若干张图片的其中一张全部的内容,包括:求教,怎么用.net实现随机抽取若干张图片的其中一张、[ASP代码]随机取一个图片、请教如何随机(不重复)抽取指定文件夹下的图片之一等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)