vb 控件数组怎么按一定规律产生

来源：百度知道 编辑：UC知道 时间：2024/06/15 16:48:11
我想用vb做一个交通仿真模拟车辆的运行，想创建一个车辆图片数组让其按一定的规律产生车辆怎么做呀，谢谢，答的好有加分，谢谢，最好能附上代码

picture控件名称picture1
command控件名称command1 开始
command控件名称command2 停止&复位
===========我是华丽的分割线==================
dim a
Private Sub Form_Load()
picture1.picture=loadpicture("D:\car.jpg")
a=picture1.left
Timer1.Enabled = False
Timer1.Interval = 10
End Sub
Private Sub command1_click()
timer1.enable=true
end sub
Private Sub command2_click()
timer1.enable=false
picture1.left=a
end sub
Private Sub Timer1_Timer()
Dim i As Integer
Randomize
Picture1.Left=Picture1.Left + Int(Rnd * 100) + 1
End Sub

你可以建立一个command1的控件数组来看一下下面的代码运行效果，注意index分别为1 to 3
Private Sub Timer1_Timer()
Dim i As Integer
Randomize
For i = 1 To 3
Command1(i).Left = Command1(i).Left + Int(Rnd * 100) + 1
Next
End Sub