GetKeyState 函数说明:
baike.baidu/link?url=n4jeKJsIc7m779XkoYxGR4yxJDZW0iQihm7gmzXaoa5Hx-zahB6stZOtE1Ysmg7d-xtgKJXa_kS4_1XS2uo5S_
GetKeyState(VK_SHIFT) > 0 没按下
::GetKeyState(VK_SHIFT) < 0被按下
科学发展观的基本内涵是什么
matlab若高序位为1，则键处于DOWN状态，否则为UP状态。
若低序位为1，则键被触发。例如CAPS LOCK键，被开时将被触发。若低序位置为0，则键被关闭，且不被触发。触发键在键盘上的指示灯，当键被触发时即亮，键不被触发时即灭。 Imports System.Runtime.InteropServices
''' <summary>
ertl
''' 调用示例:
新伊汽配城
''' Dim capsLock As KeyStateInfo = KeyboardInfo.GetKeyState(Keys.CapsLock)可利霉素片
''' If capsLock.IsToggled Then
''' MessageBox.Show("Caps Lock is On")
''' End If
''' </summary>
''' <remarks></remarks>
Public Class KeyboardInfo
Private Sub New()
End Sub
<DllImport("user32")>
Private Shared Function GetKeyState(ByVal vKey As Integer) As Short
End Function
Public Shared Function GetKeyState(ByVal key As Keys) As KeyStateInfo
Dim keyState As Short = GetKeyState(CInt(key))
Dim bits() As Byte = BitConverter.GetBytes(keyState)
Dim toggled As Boolean = bits(0) > 0, pressed As Boolean = bits(1) > 0
Return New KeyStateInfo(key, pressed, toggled)
End Function
End Class
Public Structure KeyStateInfo
Private _key As Keys
Private _isPressed, _isToggled As Boolean
Public Sub New(ByVal key As Keys, ByVal ispressed As Boolean, ByVal istoggled As Boolean)
_key = key
_isPressed = ispressed
_isToggled = istoggled
End Sub
Public Shared ReadOnly Property [Default]() As KeyStateInfo
Get
Return New KeyStateInfo(Keys.None, False, False)
End Get
End Property
Public ReadOnly Property Key() As Keys真菌恐惧症
Get
Return _key
End Get
End Property
Public ReadOnly Property IsPressed() As Boolean
Get
Return _isPressed
End Get
End Property
Public ReadOnly Property IsToggled() As Boolean
Get
Return _isToggled
End Get
End Property
End Structure
豫公网安备41160202000603
站长QQ:729038198
关于我们
投诉建议