UC知道如何让VBimage2控件数组在窗口随机降落？
来源：百度知道 编辑：UC知道 时间：2024/06/01 20:14:02
我在用VB做一个接金币的游戏，现在可以让单个金币随机降落，但无法让放在image数组中的多个金币同时随机降落，这是我的一段程序，大家看看问题出在哪？
Private Sub Timer1_Timer()
Randomize
n2 = Int(Rnd * 11) '11指1个image2数组中的11个控件
n1 = Int(Rnd * 4) '这里的4是指4个不同图片
Image2(n2).Picture = Picture1(n1).Picture
Image2(n2).Move Image2(n2).Left + 0, Image2(n2).Top + 500 '让image2数组控件降落
If Image2(n2).Top >= Form1.Height Then
Image2(n2).Left = X
Image2(n2).Top = Y
End If
End Sub
谢谢，问题我已经解决了
Private Sub Timer1_Timer()
Randomize
n2 = Int(Rnd * 11) '11指1个image2数组中的11个控件
n1 = Int(Rnd * 4) '这里的4是指4个不同图片
Image2(n2).Picture = Picture1(n1).Picture
Image2(n2).Move Image2(n2).Left + 0, Image2(n2).Top + 500 '让image2数组控件降落
If Image2(n2).Top >= Form1.Height Then
Image2(n2).Left = X
Image2(n2).Top = Y
End If
End Sub
谢谢，问题我已经解决了
代码就不写了，说下思路吧
其实只要使用一个11次的循环就可以了
循环体中的代码就是控制每个控件的随机降落，其中金币是否出现、出现数量以及降落速度都可以使用if判断，或者都使用随机也行。
需要注意的是，每次的随机值都要重新获取。原因呢，你可以查一下，VB中随机值的获取函数有点问题。