Question

在VB界面上画有几个按钮和一个圆点，用键盘控制圆点移动

我在VB界面上画有几个按钮和一个圆点，想用键盘控制圆点移动，可是动不了。我记得老师好像说过有按钮的时候要用什么语句才能使按键有用，求解答？

Answer 1

1）在窗体上布置一个Shape

2）代码

Option Explicit

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    With Shape1
        Select Case KeyCode 
            Case vbKeyLeft   '左箭头键
                .Left = .Left - 2 * Screen.TwipsPerPixelX
            Case vbKeyUp   '上箭头键
                .Top = .Top - 2 * Screen.TwipsPerPixelY
            Case vbKeyRight   '右箭头键
                .Left = .Left + 2 * Screen.TwipsPerPixelX
            Case vbKeyDown   '下箭头键
                .Top = .Top + 2 * Screen.TwipsPerPixelY
        End Select
    End With
End Sub

Private Sub Form_Load()
    '红色圆点
    With Shape1
        .Shape = 3
        .FillColor = vbRed
        .FillStyle = 0
    End With
    
    '允许窗体接收按钮！
    Me.KeyPreview = True
End Sub

Answer 2

把Form的KeyPreview属性设置为True