Question

怎样用vb做文字的移动，通过键盘的方向键控制移动方向？？

我要完整的程序过程

Answer 1

将窗体上画个Label控件 名称 Label1 里面写什么，随便；然后将窗体的 KeyPreview 设置为 True

代码如下：

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

If KeyCode = 37 Then
Label1.Left = Label1.Left - 50
If Label1.Left < 0 Then Label1.Left = Me.Width - Label1.Width
End If

If KeyCode = 38 Then
Label1.Top = Label1.Top - 50
If Label1.Top < 0 Then Label1.Top = Me.Height - Label1.Height
End If

If KeyCode = 39 Then
Label1.Left = Label1.Left + 50
If Label1.Left > Me.Width Then Label1.Left = 0
End If

If KeyCode = 40 Then
Label1.Top = Label1.Top + 50
If Label1.Top > Me.Height Then Label1.Top = 0
End If

End Sub