求教,怎么用.net实现随机抽取若干张图片的其中一张

求教,怎么用.net实现随机抽取若干张图片的其中一张,第1张

把名改为从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代码]随机取一个图片、请教如何随机(不重复)抽取指定文件夹下的图片之一等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/zz/9689226.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-01
下一篇 2023-05-01

发表评论

登录后才能评论

评论列表(0条)

保存