一、vb,編輯一個射擊游戲,怎樣用方向鍵控制飛機運動

例子：添加一個label1,表示飛機

’常數聲明

Const vbKeyLeft = 37 ' 方向鍵←

Const vbKeyUp = 38 ' 方向鍵↑

Const vbKeyRight = 39 ' 方向鍵→

Const vbKeyDown = 40 ' 方向鍵↓

’過程代碼

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Select Case KeyCode

Case vbKeyLeft '左

Label1.Move Label1.Left - 100, Label1.Top, Label1.Width, Label1.Height

Case vbKeyUp '上

Label1.Move Label1.Left, Label1.Top - 100, Label1.Width, Label1.Height

Case vbKeyRight '右

Label1.Move Label1.Left + 100, Label1.Top, Label1.Width, Label1.Height

Case vbKeyDown '下

Label1.Move Label1.Left, Label1.Top + 100, Label1.Width, Label1.Height

End Select

End Sub

注：飛機用一個控件表示，這里用了標簽。常量是方向鍵的鍵盤碼，當然可以省去聲明，直接上數字，37到40。聲明是為了可讀性。這里用的是keydown事件和move方法，move方法的四個參數你了解一下就全了然了。

二、求助，利用VB制作一個射擊小游戲

你好，下面這個站點的小游戲比較新，種類也比較多，要什么都有哦。

三、編程高手：VB 6.0 射擊游戲 求助

在窗體中添加一timer1，shape1控件

添加代碼：

Dim n As Integer, m As Integer

Private Sub Form_Load()

Timer1.Interval = 1000

Shape1.Shape = 3

n = Shape1.Left

m = Shape1.Top

End Sub

Private Sub Timer1_Timer()

Shape1.Left = Shape1.Left + 200

Shape1.Top = Shape1.Top - 100

If Shape1.Left >= Form1.Width Or Shape1.Top <= 0 Then

Shape1.Left = n

Shape1.Top = m

End If

End Sub

四、如何用VB制作3D射擊游戲？

基于vb的openGL模擬CS游戲中的三維槍戰場面。

? 代碼在這里。 你去看看。