大家帮帮忙,关于API函数调用
本人新手,最近学习API函数调用,用的是vs2010,但是运行时就会出错,说API函数调用导致堆栈不对称,希望大家帮忙解决一下
Public Class Form1
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Const VK_LEFT As Long = &H27
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label1.Text = "Begin"
Timer1.Interval = 10
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = "Hello"
If GetAsyncKeyState(VK_LEFT) Then
Label1.Text = "OK!"
Else
Label1.Text = "NO!"
End If
End Sub
End Class
...全文


API
