vb.net键盘代码 vb控制键盘

vb.net编程一个用键盘控制的东西

最简单的加速运动示例，直接拷贝代码，即可用方向键控制控件移动

Public Class 最简单的加速运动

    Dim 左右, 上下 As Integer

    Dim X, Y, VX, VY, VA As Double

    Dim WithEvents 时钟 As New Timer

    Dim WithEvents 移动控件 As New Label

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Me.KeyPreview = True

        VA = 0.5

        X = 300.0

        Y = 300.0

        移动控件.BackColor = Color.MediumPurple

        移动控件.Size = New Size(60, 60)

        Controls.Add(移动控件)

        时钟.Interval = 25

        时钟.Enabled = True

    End Sub

    Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown

        If e.KeyCode = Keys.Up Then 上下 = -1

        If e.KeyCode = Keys.Down Then 上下 = 1

        If e.KeyCode = Keys.Left Then 左右 = -1

        If e.KeyCode = Keys.Right Then 左右 = 1

    End Sub

    Private Sub Form1_KeyUp(sender As Object, e As KeyEventArgs) Handles MyBase.KeyUp

        If e.KeyCode = Keys.Up Then 上下 = 0

        If e.KeyCode = Keys.Down Then 上下 = 0

        If e.KeyCode = Keys.Left Then 左右 = 0

        If e.KeyCode = Keys.Right Then 左右 = 0

    End Sub

    Private Sub 时钟_Tick(sender As Object, e As EventArgs) Handles 时钟.Tick

        VX = Math.Min(VX + 左右 * VA, 10)

        VY = Math.Min(VY + 上下 * VA, 10)

        X += VX

        Y += VY

        If X  0 Then X = 2 : VX = -VX

        If Y  0 Then Y = 2 : VY = -VY

        If X  Width - 移动控件.Width Then X = Width - 移动控件.Width - 2 : VX = -VX

        If Y  Height - 移动控件.Height Then Y = Height - 移动控件.Height - 2 : VY = -VY

        移动控件.Location = New Point(X, Y)

    End Sub

End Class

相关问答

Q1: vb.net中如何执行键盘事件？

执行键盘事件方法如下vb.net键盘代码：

第一步vb.net键盘代码，点击VS工具。

第二步，打开后，新建一个Windows窗体应用程序。

第三步，请看右下方Formvb.net键盘代码的属性栏。

第四步，双击KeyDown。

第五步，输入提示按键代码，如图所示。

第六步，再次输入代码，设置属性KeyPreview为true。

第七步，运行程序，按下举例F5，则会弹出提示，表明已经成功获。

Q2: vb.net 如何吧字符穿转换成键盘码

（1）在Form1上布置一个Label，用来显示键盘码

（2）窗体代码如下

Imports System.Windows.Forms

Imports System.IO

Imports System.Net

Imports System.Windows.Forms

Imports System.IO

Imports System.Net

Public Class Form1

    Private Sub Form1_Load(sender As Object,

                           e As EventArgs) Handles MyBase.Load

        KeyPreview = True

    End Sub

    Private Sub Form1_KeyDown(sender As Object,

                              e As KeyEventArgs) Handles MyBase.KeyDown

        Label1.Text = e.KeyValue

    End Sub

End Class

按键盘上vb.net键盘代码的键，Label1将显示对应键vb.net键盘代码的键盘码

vb.net键盘代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb控制键盘、vb.net键盘代码的信息别忘了在本站进行查找喔。