我自己寫了一個射擊游戲，工程我已發
代碼：
Dim x11 As Double
Dim x22 As Double
Dim y11 As Double
Dim y22 As Double
Dim m As Boolean
Dim j As Integer
Dim l As Integer
Private Sub Command1_Click()
Timer1.Interval = 100
Command1.Visible = False
End Sub
Private Sub Form_Load()
MsgBox 在窗體里點擊左鍵不放來改變射擊方向，釋放左鍵后射擊
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim temp As Double
If Line1.X1 < Line1.X2 Then
Line1.Y1 = Line1.Y2 - Line1.X2 * (Line1.Y2 - Line1.Y1) / (Line1.X2 - Line1.X1)
Line1.X1 = 0
For i = 0 To 6
temp = Line1.X2 - (Line1.X2 - Line1.X1) * (Line1.Y2 - Shape1(i).Top) / (Line1.Y2 - Line1.Y1)
If temp >= Shape1(i).Left And temp <= Shape1(i).Left + Shape1(i).Width Then
m = True
j = i
l = Shape1(i).Left
Me.Caption = Split(Me.Caption, 分)(0) + 1 & 分
Exit For
End If
Next
Timer2.Interval = 500
Else
Line1.Y1 = Line1.Y2 - (Form1.Width - Line1.X2) * (Line1.Y2 - Line1.Y1) / (Line1.X1 - Line1.X2)
Line1.X1 = Form1.Width
For i = 0 To 6
temp = Line1.X2 + (Line1.X1 - Line1.X2) * (Line1.Y2 - Shape1(i).Top) / (Line1.Y2 - Line1.Y1)
If temp >= Shape1(i).Left And temp <= Shape1(i).Left + Shape1(i).Width Then
m = True
j = i
l = Shape1(i).Left
Me.Caption = Split(Me.Caption, 分)(0) + 1 & 分
Exit For
End If
Next
Timer2.Interval = 500
End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Line1.X1 = X
x11 = Line1.X1
x22 = Line1.X2
y11 = Line1.Y1
y22 = Line1.Y2
End If
End Sub
Private Sub Timer1_Timer()
Shape1(0).Left = IIf(Shape1(0).Left >= Form1.Width, 0, Shape1(0).Left + 100)
Shape1(1).Left = IIf(Shape1(1).Left >= Form1.Width, 0, Shape1(1).Left + 150)
Shape1(2).Left = IIf(Shape1(2).Left >= Form1.Width, 0, Shape1(2).Left + 200)
Shape1(3).Left = IIf(Shape1(3).Left >= Form1.Width, 0, Shape1(3).Left + 160)
Shape1(4).Left = IIf(Shape1(4).Left >= Form1.Width, 0, Shape1(4).Left + 90)
Shape1(5).Left = IIf(Shape1(5).Left >= Form1.Width, 0, Shape1(5).Left + 210)
Shape1(6).Left = IIf(Shape1(6).Left >= Form1.Width, 0, Shape1(6).Left + 260)
End Sub
Private Sub Timer2_Timer()
Line1.X1 = 4080
Line1.X2 = 4080
Line1.Y1 = 3960
Line1.Y2 = 4680
Timer2.Interval = 0
End Sub
Private Sub Timer3_Timer()
If m = True Then Shape1(j).Top = Shape1(j).Top + 100: Shape1(j).Left = l
If Shape1(j).Top > Form1.Height + 200 Then m = False
End Sub
