十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
如果是在自己的程序中,可以利用自身的按键事件,如果是全局键盘,那就要用到键盘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