[vb程序设计射击游戏]Private Declare Function GetObject Lib ＂gdi32 ＂ Private Declare Function GetBitmapBits Lib ＂gdi32 ＂ Private Declare Function SetBitmapBits Lib ＂gdi32 ＂ Dim PicBits()...+阅读

例子：添加一个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做这种程序不太适合。首先，画图，必须用directDRAW，而且应该有多重背景的。飞机应该是那种有透明区域的。可能还要用那种alpha效果。爆炸效果什么的。再者，键盘方面，游戏一般...