如果是在自己的程序中,可以利用自身的按键事件,如果是全局键盘,那就要用到键盘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
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,不就知道有几个按钮被点击过了么?
'我是这么想的啦,可能有些小儿科^-^
这就要调用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判断语句
浏览路径:https://www.cdcxhl.com/article36/doohgsg.html
成都网站建设公司_创新互联,为您提供网站设计公司、移动网站建设、虚拟主机、服务器托管、全网营销推广、微信小程序
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联