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

VB.net中键盘按键事件的代码是什么如何判断焦点的位置 也就是编写这样一个程序 击键时，如果焦点

选到TextBox1的keydown方法，然后val=keycode不行么？

创新互联建站于2013年创立，是专业互联网技术服务公司，拥有项目网站设计制作、成都做网站网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元东乡做网站,已为上家服务,为东乡各地企业和个人服务,联系电话:18980820575

焦点在哪个控件，哪个控件就会有keydown，没有焦点也就不会有。

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

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

按键盘上的键，Label1将显示对应键的键盘码

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

执行键盘事件方法如下：

第一步，点击VS工具。

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

第三步，请看右下方Form的属性栏。

第四步，双击KeyDown。

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

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

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