怎样用vb做文字的移动,通过键盘的方向键控制移动方向??
来源:百度知道 编辑:UC知道 时间:2024/06/23 00:18:43
我要完整的程序过程
将窗体上画个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