vb弹球游戏代码.docVIP

弹球游戏 Dim x_step As Integer Dim y_step As Integer Private Sub command1_Click() If Timer1.Enabled = True Then Timer1.Enabled = False Else Timer1.Enabled = True End If If command1.Caption = 暂停 Then command1.Caption = 继续 Else command1.Caption = 暂停 End If End Sub Private Sub Form_Load() x_step = 200 y_step = 200 End Sub Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 37 Then If Line1.X1 0 Then Line1.X1 = 0: Line1.X2 = 2000 Else Line1.X1 = Line1.X1 - 100: Line1.X2 = Line1.X2 - 100 End If End If If KeyCode = 39 Then