求助、vb作业、搞了两天都没搞出来、、、

敢不敢学习下控件的left属性

这作业好有意思，好想玩玩

把你做好的，发给我，我给你弄

Private Sub Command1_Click()
Timer1.Enabled = True
Timer4.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
End Sub
Private Sub Command3_Click()
Shape1.Left = 5745 ‘5745是我的图片起始位置，为了快，设置成固定的了。没用代码编。
Shape2.Left = 5745 ’5745是我的图片起始位置，为了快，设置成固定的了。没用代码编
End Sub
Private Sub Command4_Click()
If Timer2.Interval = 100 Then Timer2.Interval = 1000
Timer2.Interval = Timer2.Interval - 100
Timer2.Enabled = True
End Sub
Private Sub Command5_Click()
If Timer3.Interval = 100 Then Timer3.Interval = 1000
Timer3.Interval = Timer3.Interval - 100
Timer3.Enabled = True
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = True
End Sub
Private Sub Timer1_Timer()
s1 = Shape1.Left - 30
Shape1.Move s1
s2 = Shape2.Left - 30
Shape2.Move s2
End Sub
Private Sub Timer2_Timer()
s1 = Shape1.Left - 50
Shape1.Move s1
End Sub
Private Sub Timer3_Timer()
s2 = Shape2.Left - 50
Shape2.Move s2
End Sub
Private Sub Timer4_Timer()
Label1.Caption = Shape1.Left & " ---" & Shape2.Left
If Shape2.Left < 0 Then
MsgBox "白色winner"
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
End If
If Shape1.Left < 0 Then
MsgBox "黑色winner"
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
End If
End Sub
你按图 画好部件，然后把代码复制进去。就可以实现。

楼主妹纸，让寡人远程协助你一下，很快就好了。

这个编的一般，还有比这个简单的。要的话，我再放。