VB高手请进 此问题急!!!明天就需要饿

来源：百度知道 编辑：UC知道 时间：2024/05/04 10:02:14
Option Explicit
Private Const MouseMoveLen As Long = 500
Private Const AppleMoveLen As Long = 1000

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) '
Dim i As Long, L As Long
Select Case KeyCode
Case vbKeyLeft
i = -MouseMoveLen
Case vbKeyRight
i = MouseMoveLen
Case Else
i = 0
End Select
L = imgMouse.Left + i
If L > 0 And L < Me.ScaleWidth - imgMouse.Width Then
imgMouse.Left = L
End If
End Sub

Private Sub Form_Load()
Me.Left = 0
Me.Top = 0
Me.Width = Screen.Width
Me.Height = Screen.Height

imgMouse.Top = Me.ScaleHeight - imgMouse.Height
imgMouse.Left = (Me.ScaleWidth - imgMouse.Width) / 2
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
PopupMenu mnuGame
End Sub<

Option Explicit

'该程序看起来是老鼠吃苹果的游戏。

'下面两条是定义一个常量，看起来像老鼠移动距离和苹果移动距离的固定值。
Private Const MouseMoveLen As Long = 500
Private Const AppleMoveLen As Long = 1000

'捕获窗体的键盘事件，这里只捕获了方向键，根据方向按键来确定（老鼠）imgMouse 移动方向。

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) '
Dim i As Long, L As Long
Select Case KeyCode
Case vbKeyLeft
i = -MouseMoveLen
Case vbKeyRight
i = MouseMoveLen
Case Else
i = 0
End Select
L = imgMouse.Left + i
If L > 0 And L < Me.ScaleWidth - imgMouse.Width Then
imgMouse.Left = L
End If
End Sub

'窗体加载时将窗体全屏化，并将老鼠图片定位在窗体的中下部
Private Sub Form_Load()
Me.Left = 0
Me.Top = 0
Me.Width = Screen.Width
Me.Height = Screen.Height

imgMouse.Top = Me.ScaleHeight - imgMouse.Height
imgMouse.Left = (Me.ScaleWidth - imgMouse.Width) / 2
End Sub

'