Question

我在做连连看游戏。我是用image做的控件数组，有9张图片，请问怎么把这9张图片随机加载进去啊？？

麻烦帮忙写下代码吧。。。。。。。。。。名早要用，，，，，呜呜呜

Answer 1

要么用imagelist
一定要用加载图片方法就把图片名称存成相同格式,名字取成1.bmp、2.bmp、3.bmp·....
给个随机种子,一组随机数.
在同一个事件中加载每个位置的图片
image1.Pictrue=pictrue.Loadfile(App.Path+"/"+CStr(随机数)+".bmp")
这样不就行了.每个位置图片都要写加载代码

追问

我的图片是Jpg的，我就是存的1.jpg这种的，但是还是运行不起。。。
我是新手，，，你这个我完全不怎么懂啊。。。。

Dim n As Integer
Private Sub Form_Load()
Randomize
n = Int(Rnd * 9) + 1
Image1(n).Picture = LoadPicture(App.Path & "\" & n & ".jpg")
End Sub

我是这样写的，但这样，只是在70个格子里面出一次现一个，就不能一次性全部出现了，纠结了

追答

天,你真人才,70个格子是一个一个写吗,VB直接复制image可以创建iamge控件组:
那在程序中就可以用foreach语句或者for语句遍历控件组
dim i as integer
for i=0 to 70 step 1
iamge1(i).Picture = LoadPicture(App.Path & "\" & n & ".jpg")
next i
连连看不是这么写的吧,你要切换几个模式和界面也一个一个拖图那不累死了,而且连连看下面空了图片会向一个方向缩进,移动显示啊,还要计算画出连接的线啊

Answer 2

Dim n As Integer
Private Sub Form_Load()
For i=0 to Image1.Count -1
Randomize
n = Int(Rnd * 9) + 1
Image1(i).Picture = LoadPicture(App.Path & "\" & n & ".jpg")
Next i
End Sub

Answer 3

下PPt啊！幻灯片会做吧！自己设计

追问

？？？？是什么？是用Vb做的

追答

下Prowerpoint2003/2007/2010配合着做