vb image控件如何产生随机图片

在image控件数组中想加载十几张图片，要如何让那些图片随机出现哦？求代码，最后能详细点解释。（初学..）

举报该文章

第1个回答 2011-05-11

将多张图片编号，比如，用随机函数就OK了

第2个回答 2011-05-11

随机出现是什么意思呢，每次只出几张呢，还是每次全部出现只是位置发生变化
你没说清楚追问

每次全部出现，位置发生变化，就是重列。
For i = 0 To 24
Select Case Image1(i).Picture
Case 1
Image1(i).Picture = LoadPicture(App.Path + "/pic/1.jpg")
Case 2
Image1(i).Picture = LoadPicture(App.Path + "/pic/2.jpg")
截取一段代码。不知道哪里出问题了，运行时图片都显示不出来，是路径还是方法用错了？我初学，都不懂的。拜托帮下忙了~

追答

首先
这段 Select Case Image1(i).Picture
Image1(i).Picture 是 StdPicture类型你怎么可以作为case 项你下面的 CASE 1 ，case 2 是整数类型啊，呵呵
你这段代码在表现什么意思呵呵
如果你是要全部按顺序出现也就只要
for i=0 to Image1.Count
Image1(i).Picture = LoadPicture(App.Path + "\pic\" & i & ".jpg")
next

本回答被提问者采纳

相似回答

大家正在搜