vb.net如何判断键盘 vb判断是否按下键盘的键

vb.net 怎么知道按下了多个按键

用API  GetKeyboardState ，判断所有的键里哪些被按下了。

下面的是判断键盘灯的状态

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

相关问答

Q1: 利用VB.NET怎样使窗体在没有焦点时也能检测键盘事件？

窗体内检测按键

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

Me.KeyPreview = True '注册窗体的键盘事件

End Sub

在TextBox1中显示按键代码

Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown

TextBox1.Text = Str(e.KeyCode) + vbCrLf

End Sub

窗体没有焦点vb.net如何判断键盘，用窗体监测键盘输入缓冲区可以解决vb.net如何判断键盘，但这似乎可以用于监测用户输入内容vb.net如何判断键盘，不要用于非法目的呀！所以就是知道也不会告诉你的。

Q2: VB键盘判断按键

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

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 '其vb.net如何判断键盘他按键

Label1.Caption = 3

End If

Me.Cls

Print KeyAscii

End Sub

vb.net如何判断键盘的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb判断是否按下键盘的键、vb.net如何判断键盘的信息别忘了在本站进行查找喔。