form1.frm

一个小的VB编写的射击程序

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   7125
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   9765
   LinkTopic       =   "Form1"
   ScaleHeight     =   7125
   ScaleWidth      =   9765
   StartUpPosition =   3  '窗口缺省
   Begin VB.Timer Timer1 
      Interval        =   50
      Left            =   240
      Top             =   4440
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "■"
      Height          =   180
      Left            =   -160
      TabIndex        =   0
      Top             =   1920
      Width           =   180
   End
   Begin VB.Image Image1 
      Height          =   480
      Left            =   4080
      Picture         =   "Form1.frx":0000
      Top             =   3000
      Width           =   480
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim yid As Boolean
Dim fangxiang As String
Dim fxstr As String
Dim ky As Boolean
Dim jian As String

Private Sub Form_KeyPress(KeyAscii As Integer)

jian = Chr(KeyAscii)
If (jian = "a" Or jian = "s" Or jian = "d" Or jian = "w") Then fxstr = jian
If Chr(KeyAscii) = "a" Then
    If Image1.Left > 120 Then Image1.Left = Image1.Left - 60
ElseIf Chr(KeyAscii) = "d" Then
    If Image1.Left < 9120 Then Image1.Left = Image1.Left + 60
ElseIf Chr(KeyAscii) = "w" Then
    If Image1.Top > 120 Then Image1.Top = Image1.Top - 60
ElseIf Chr(KeyAscii) = "s" Then
    If Image1.Top < 6480 Then Image1.Top = Image1.Top + 60
ElseIf jian = "j" And ky = True Then
    Label1.Left = Image1.Left
    Label1.Top = Image1.Top
    yid = True
    fangxiang = fxstr
Else
    Exit Sub
End If
End Sub

Private Sub Form_Load()
fangxiang = "w"
End Sub

Private Sub Timer1_Timer()

    If Label1.Left < -159 Or Label1.Left > 10000 Or Label1.Top < -159 Or Label1.Top > 7200 Then
        ky = True
        
        yid = False
    Else
        ky = False
        If yid = True Then
        
            If fangxiang = "w" And Label1.Top > -160 Then Label1.Top = Label1.Top - 180
            If fangxiang = "s" And Label1.Top < 7380 Then Label1.Top = Label1.Top + 180
            If fangxiang = "a" And Label1.Left > -160 Then Label1.Left = Label1.Left - 180
            If fangxiang = "d" And Label1.Left < 10180 Then Label1.Left = Label1.Left + 180
        
        End If
    End If

End Sub