VB坦克大战代码
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Private Sub Form_Load() La.Top = 4000
La.Left = 3000
La.Height = 800
La.Width = 900
Lb.Top = 4300
Lb.Left = 3900
Lb.Height = 200
Lb.Width = 900
Lc.Top = 4300
Lc.Left = 4560
Lc.Height = 200
Lc.Width = 200
End Sub
Private Sub Form_keypress(keyascii As Integer)
If keyascii = 106 Then
La.Enabled = False
Lb.Enabled = False
If La.Top - Lb.Top = 900 And Lb.Left - La.Left = 300 Then Lc.Top = La.Top - 900
Lc.Left = La.Left + 300
Lc.Visible = True
Timer
1."Enabled = True
Timer
2."Enabled = False
Timer
3."Enabled = False
Timer
4."Enabled = False
ElseIf La.Left - Lb.Left = 900 And Lb.Top - La.Top = 300 Then Lc.Top = La.Top + 300
Lc.Left = La.Left - 900
Lc.Visible = True
Timer
1."Enabled = False
Timer
2."Enabled = True
Timer
3."Enabled = False
Timer
4."Enabled = False
ElseIf Lb.Top - La.Top = 900 And Lb.Left - La.Left = 300 Then Lc.Top = La.Top + 1600
Lc.Left = La.Left + 300
Lc.Visible = True
Timer
1."Enabled = False
Timer
2."Enabled = False
Timer
3."Enabled = True
Timer
4."Enabled = False
ElseIf Lb.Left - La.Left = 900 And Lb.Top - La.Top = 300 Then Lc.Top = La.Top + 300
Lc.Left = La.Left + 1600
Lc.Visible = True
Timer
1."Enabled = False
Timer
2."Enabled = False
Timer
Timer
4."Enabled = True
End If
ElseIf keyascii = 119 Then La.Enabled = True
Lb.Enabled = True
Lb.Left = La.Left + 300 Lb.Top = La.Top - 900 La.Height = 900
La.Width = 800
Lb.Width = 200
Lb.Height = 900
If Lb.Top <= 0 Then Lb.Enabled = False
La.Enabled = False
Else
La.Top = La.Top - 100 Lb.Top = Lb.Top - 100 End If
ElseIf keyascii = 97 Then
Lb.Enabled = True
Lb.Left = La.Left - 900 Lb.Top = La.Top + 300 La.Height = 800
La.Width = 900
Lb.Width = 900
Lb.Height = 200
If Lb.Left <= 0 Then Lb.Enabled = False
La.Enabled = False
Else
La.Left = La.Left - 100 Lb.Left = Lb.Left - 100 End If
ElseIf keyascii = 100 Then La.Enabled = True
Lb.Enabled = True
Lb.Left = La.Left + 900 Lb.Top = La.Top + 300 La.Height = 800
La.Width = 900
Lb.Width = 900
Lb.Height = 200
If Lb.Left >= 8700 Then Lb.Enabled = False
La.Enabled = False
Else
La.Left = La.Left + 100 Lb.Left = Lb.Left + 100 End If
ElseIf keyascii = 115 Then La.Enabled = True
Lb.Enabled = True
Lb.Left = La.Left + 300 Lb.Top = La.Top + 900 La.Height = 900
La.Width = 800
Lb.Width = 200
Lb.Height = 900
If Lb.Top >= 7600 Then Lb.Enabled = False