Question

在vb中,像连连看一样在图片框中随机产生图片,用代码怎样实现?

Answer 1

首先，建立一个资源数组，里面是图片的名字；
然后，建立一个整数，使用随机数得到一个下界为数组的开始1，上界为数组的长度n的整数值。
接下来，就根据整数索引，获得资源数组的图片名。
最后，加上路径，设置图片框的文件名为路径+文件名。

追问

能不能给我代码？

追答

Dim pa(100) As String '这个可以自己定义，也可以配合着目录里的名字，最节省的方式就是不用
Dim s As String
Dim k As Integer
Randmize
k = 100 * Rnd()
If k > 100 Then k = 100
s = "E:\Windows\img" & k & ".jpg" ‘这里是具体的路径，你需要根据实际修改
Image1.Stretch = True
Image1.Picture = LoadPicture(s) ’使用Image控件可缩放

Answer 2

最好的方法是将一系列的图片改名为按顺序的数字,如有5个图片就分别叫1.jpg,2.jpg,3.jpg,4.jpg,5.jpg这样. 然后用随机函数
Randomize '随机种子
a = Int((5 * Rnd) + 1) '随机出a是1至5之间
picture1.picture= LoadPicture(App.Path & "\" & a & ".jpg")

Answer 3

建立一个数据库。将所有的图片存到数据库。
然后用随机函数载入图片