VB键盘判断按键

如果是在自己的程序中，可以利用自身的按键事件，如果是全局键盘，那就要用到键盘hook技术了，比较复杂。

10多年品牌的成都网站建设公司,上1000+企业网站设计经验.价格合理,可准确把握网页设计诉求.提供定制网站建设、商城建设、微信小程序开发、成都响应式网站建设等服务,我们设计的作品屡获殊荣,是您值得信赖的专业网站制作公司。

Private Sub Form_Load()

Label1.Caption = ""

Text1 = ""

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then '回车键

Label1.Caption = 1

ElseIf KeyAscii = 8 Then '退格键

Label1.Caption = 2

Else '其他按键

Label1.Caption = 3

End If

Me.Cls

Print KeyAscii

End Sub

vb.net 程序画的按钮如何判断点击

Public Class Form1

'/////////////////////动态添加一个btn/////////////////////////

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

Dim btn As New Button

btn.Width = 100 : btn.Text = "New created btn"

AddHandler btn.Click, AddressOf btn_Click '就是这个起的作用,给btn添加click事件

Me.Controls.Add(btn)

End Sub

'/////////////////////btn的响应事件(Click事件响应)/////////////////////////

Private Sub btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Me.Text = "动态添加的按钮被按下"

End Sub

End Class

'/////////////////////////

'要是有一堆类似的玩意儿,定义一个全局数组变量,哪个按钮点击过,就数组中的第几号就变为true,没点击过,就是false

'以后随时看看数组中有几个true,不就知道有几个按钮被点击过了么?

'我是这么想的啦,可能有些小儿科^-^

VB.NET 怎样识别用户按下的 Shift 按键？？

这就要调用API函数了 给你代码吧 记得给点分啊

Private Const KeysM = H8000

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown

Me.Text = e.KeyValue

If e.KeyValue = Keys.ShiftKey And GetAsyncKeyState(160) And KeysM Then

MsgBox("你按的是左SHIFT")

ElseIf e.KeyValue = Keys.ShiftKey And GetAsyncKeyState(161) And KeysM Then

MsgBox("你按的是右SHIFT")

End If

End Sub

当前文章：vb.net判断制定按键 VB判断语句
分享URL：http://azwzsj.com/article/doohgsg.html