Question

vb.net 2012调用GetAsyncKeyState的问题

Public Class Form1
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If GetAsyncKeyState(1) < 0 Then
Button1.Text = "Hello world!"
End If
End Sub
End Class
上面是我的代码，但是运行发生一个错误

Answer 1

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Integer
long 改 Integer

Answer 2

在.net里返回值 应该short