vb 两个窗体生成随机图片问题!!!

来源:百度知道 编辑:UC知道 时间:2024/05/27 12:27:21
程序有两种类型图片库:a,b,c 以及相对应的A,B,C
我需要2个窗体,两者相互切换3次
form1中:
从a,b,c图片库中随机选取一个库,然后选取10幅任意图片
form2中:
将from1中选择库的参数按值传送过来,然后在对应的A,B,C图片库中,任意选取10幅图片

程序如下:
form1
Option Explicit
Public pictreselect As Integer
Dim i As Integer, z,
Private Sub Command1_Click()
For i = 1 To 3 -----------限制两个窗体之间只能相互转换3次
z = Int(Rnd * 3 + 1)-----------随机选择a,b,c图片库
pictureselect = z ---------- 将选择按参数传递至form2
ing1 = z
If ing1 = ing2 Then ----------防止后2次随机选择出现重复问题
z = Int(Rnd * 3 + 1)------如果选择重复,重新生成一个随机数
pictureselect = z
ing1 = z
End If
If z Mod 2 = 0 Then -------------------------如果选择b图片库
Ss1 = "D:\PM\PM2\”+str(int(rnd*1+12))-----随机选择10幅图片到10个图片框
Image1.Picture = LoadPicture(ss1)
Ss2=
Image2.picture=

我给你介绍一个猛老师,你去他的网站看看!他叫李老师!你可以留言问问他!
http://blog.tom.com/blog/read.php?bloggerid=785723&blogid=52791