如何在vb.net中使用Insert键?

时间:2012-05-18 00:27:10

标签: vb.net

我正在开发一个显示游戏菜单的项目。但要打开菜单,您必须按Insert键。我找到了两种方法,但他们都给我错误。这是代码:

      Dim insert As Boolean = GetAsyncKeyState(Keys.Insert)

     GetAsyncKeyState(118)

我得到的错误是PInvoke restriction: cannot return variants

我对这些东西不太熟悉所以请帮忙,我怎么做才能按插入键?

1 个答案:

答案 0 :(得分:2)

如果这是WinForms,请将表单的KeyPreview设置为true并覆盖OnKeyDown方法:

Public Class Form1

  Public Sub New()
    InitializeComponent()
    Me.KeyPreview = True
  End Sub

  Protected Overrides Sub OnKeyDown(ByVal e As System.Windows.Forms.KeyEventArgs)
    If e.KeyCode = Keys.Insert Then
      MessageBox.Show("I'm inserting!")
    End If
  End Sub

End Class