锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net键盘控制 vb中的键盘事件

控件IT技术

vb.net中，如何通过键盘上的按键触发button _click事件1、将窗口的KeyPreview属性设置为True
Me.KeyPreview = True
2、处理窗口的KeyDown事件
Sub MainFormKeyDown(sender As Object, e As KeyEventArgs)
Select Case e.KeyCode
Case Keys.Escape
Me.button1.PerformClick
Case Keys.Enter
Me.button2.PerformClick
End Select
End Sub
VB.net编写一个控制台应用程序用来从键盘上输入两个数然后输出这两个数的和差积商应该定义为double或者single，string类好像不能进行运算 。我简单说一下控制台的方法，你要一次性输入和差积商，首先声明两个变量用来储存两个数，然后用算法一次性输出结果就ok 。
Sub Main()
Dim FN As Single
Dim SN As Single
Dim ResultNum As Single
Console.WriteLine("请输入第一个数") : FN = Console.ReadLine
Console.WriteLine("请输入第二个数") : SN = Console.ReadLine
ResultNum = FNSN
Console.WriteLine("它们的和: "ResultNum)
ResultNum = FN - SN
Console.WriteLine("它们的差: "ResultNum)
ResultNum = FN * SN
Console.WriteLine("它们的积: "ResultNum)
ResultNum = FN / SN
Console.WriteLine("它们的商: "ResultNum)
Console.ReadLine()
End Sub
vb.net中如何执行键盘事件？执行键盘事件方法如下：
第一步，点击VS工具 。
第二步，打开后，新建一个Windows窗体应用程序 。
第三步，请看右下方Form的属性栏 。
第四步，双击KeyDown 。
第五步 ， 输入提示按键代码，如图所示 。
第六步 ， 再次输入代码，设置属性KeyPreview为true 。
第七步，运行程序，按下举例F5，则会弹出提示，表明已经成功获 。
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 X0 Then X = 2 : VX = -VX
If Y0 Then Y = 2 : VY = -VY
If XWidth - 移动控件.Width Then X = Width - 移动控件.Width - 2 : VX = -VX
If YHeight - 移动控件.Height Then Y = Height - 移动控件.Height - 2 : VY = -VY
移动控件.Location = New Point(X, Y)
End Sub
End Class
VB.NET模拟键盘的方法例vb.net键盘控制：SendKeys.Send("4");
特殊键带“｛｝”普通直接“”
【vb.net键盘控制 vb中的键盘事件】vb.net键盘控制的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb中的键盘事件、vb.net键盘控制的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：用妙手小程序怎么搬运商品，用妙手小程序怎么搬运商品视频

    下一篇：为什么我的GTA无法连接到服务器？ gta怎么连不上服务器