不使用 DLL 获取按键状态函数

Question

我需要 vb.net Getkeystate Function() 的代码，而不使用任何 DLL。我是从 vb 到 vb.net 的 API 转换的初学者。在 vb6 中，他们使用 user32 DLL。在 Vb.Net 中，我需要调用 Getkeystate 函数而不需要“ User32.dll”函数。谁能在不使用dll的情况下将代码发给我？ 有没有办法在不使用 vb.net 中的 dll Getkeystate 函数的情况下获取按键状态？如果有任何人知道等效的方法，请告诉我该代码。该代码应该在 .net 框架中使用。

VB：

Private Declare Function GetKeyState Lib "user32.dll" (ByVal nVirtKey As Long) As Integer
Dim keystate As Long
keystate = GetKeyState(27)
MsgBox keystate

VB.net

Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
On Error Resume Next
Dim KeyState As Long
KeyState = GetAsyncKeyState(17)
MsgBox(KeyState

Answer 1

您要么需要调用 Windows API，要么不需要 - 从您的问题中我不确定您是否理解使用 DLL/调用 Windows API 的含义。 User32.dll是Windows的一部分，调用其中的函数实际上是要求Windows为您执行函数。您想要替换该函数还是仅仅将调用转换为 vb.net？

如果您只需将调用转换为 vb.net，您可以使用 PInvoke 对 Windows API 的调用。

这是该页面的示例：

<DllImport("user32.dll", SetLastError := True, CharSet := CharSet.Unicode)> _
Private Function GetKeyState (ByVal nVirtKey As KeyStates) As Short
End Function

Imports System.Windows.Forms
Public Class MinhaNovaTextbox
    Inherits System.Windows.Forms.TextBox

    Dim bInserting As Boolean = True

    Private Declare Function GetKeyState _
        Lib "user32" (ByVal nVirtKey As Short) As Integer

    Public Sub New()
        MyBase.New()
        bInserting = GetKeyState(Keys.Insert)
    End Sub

    Protected Overrides Sub OnKeyPress(ByVal e As System.Windows.Forms.KeyPressEventArgs)
        bInserting = GetKeyState(Keys.Insert)
        If Not bInserting Then
            Me.SelectionLength = 1
        End If
        MyBase.OnKeyPress(e)
    End Sub
End Class

Answer 2

对于 17，Control (Ctrl) 键，请使用 My.Computer.Keyboard.CtrlKeyDown。

您还可以使用 System.Windows.Forms.Control.ModifierKeys 或使用 Keyboard 类。但是，使用 My 命名空间要容易得多。

对于 27、Escape (Esc) 键，必须使用 Windows API 调用。请参阅 http://msdn.microsoft 上的 GetKeyState 函数。 com/en-us/library/ms646301.aspx

System.Windows.Form.Form 并不真正需要检查 Esc。只需添加一个“取消”按钮并设置表单的 CancelButton 属性即可。如果您需要更多控制，请处理 Key 事件之一； KeyUp、KeyDown、KeyPress 或 PreviewKeyDown。

Answer 3

System.Windows.Input.Keyboard.IsKeyDown(System.Windows.Input.Key)