锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net判断制定按键 vbs判断

IT技术按键

VB.NET 怎样识别用户按下的 Shift 按键？？[2]需要用api实现 给你代码吧 咋不给点分啊?
【vb.net判断制定按键 vbs判断】Public Class Form1
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 = https://www.04ip.com/post/Keys.ShiftKey And GetAsyncKeyState(160) And KeysM Then
MsgBox("你按的是左SHIFT")
ElseIf e.KeyValue = https://www.04ip.com/post/Keys.ShiftKey And GetAsyncKeyState(161) And KeysM Then
MsgBox("你按的是右SHIFT")
End If
End Sub
End Class
VB.net程序如何在后台判断用户按了什么键？在窗体的on key press \ on key down事件里面判断，并根据你的限制条件决定是否show你的窗体
vb.net 怎么知道按下了多个按键用APIGetKeyboardState ， 判断所有的键里哪些被按下了 。
下面的是判断键盘灯的状态
Public Class NativeMethods
Private Shared keyState() As Byte
DllImport("user32.dll") _
Private Shared Function GetKeyboardState(ByVal keyState() As Byte) As Boolean
End Function
Private Shared Sub Update()
keyState = New Byte(256) {}
Dim result As Boolean = GetKeyboardState(keyState)
' Check for error:
If result = False Then
Debug.WriteLine("GetKeyBoardState error: "Marshal.GetLastWin32Error)
Throw New Exception("GetKeyBoardState error: "Marshal.GetLastWin32Error)
End If
End Sub
Public Enum LightState
Off
[On]
End Enum
' Example - the keyboard lights...
Public Shared ReadOnly Property CapsLockState() As LightState
Get
Update()
Dim isOn As Boolean = (keyState(Keys.CapsLock) = 1)
Return IIf(isOn, LightState.On, LightState.Off)
End Get
End Property
Public Shared ReadOnly Property NumLockState() As LightState
Get
Update()
Dim isOn As Boolean = (keyState(Keys.NumLock) = 1)
Return IIf(isOn, LightState.On, LightState.Off)
End Get
End Property
Public Shared ReadOnly Property ScrollLockState() As LightState
Get
Update()
Dim isOn As Boolean = (keyState(Keys.Scroll) = 1)
Return IIf(isOn, LightState.On, LightState.Off)
End Get
End Property
End Class
VB如何判断是否按下键盘上某个键把判断代码放到KeyDown事件中vb.net判断制定按键 ， KeyCode是这个事件vb.net判断制定按键的参数vb.net判断制定按键，在别vb.net判断制定按键的过程里无效 。
另外 ， 要注意按键vb.net判断制定按键的接收对象 ， 焦点在按钮则需要在按钮的KeyDown事件，或者设置窗体的KeyPreview=True，这样窗体总是能够接收到按键 。
VB键盘判断按键如果是在自己的程序中 ， 可以利用自身的按键事件，如果是全局键盘，那就要用到键盘hook技术了，比较复杂 。
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判断制定按键的介绍就聊到这里吧，感谢你花时间阅读本站内容 ， 更多关于vbs判断、vb.net判断制定按键的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：广告如何大规模推广，推动广告

    下一篇：服务器插头，服务器插头正常是开路还是闭路