ClipCursor函数引用注意

 

1. 写了一个鼠标锁程序，但是ClipCursor函数的.net下调用却出了点问题。以下是代码，调试时出现
3. [quote]对 PInvoke 函数“鼠标锁!鼠标锁.Form1::ClipCursor”的调用导致堆栈不对称。原因可能是托管的 PInvoke 签名与非托管的目标签名不匹配。请检查 PInvoke 签名的调用约定和参数与非托管的目标签名是否匹配。[/quote]
5. 查找了MSDN中API函数在.net上运行发现，在VB6中的数据类型long在VB2005中要变成integer，我改过来，但是仍然出现错误。先在这里描述一下问题，等待解决问题的时候，会将结果写出来。
7. Public Class Form1
8.     Public Structure RECT
9.         Dim Left As Integer
10.         Dim Top As Integer
11.         Dim Right As Integer
12.         Dim Bottom As Integer
13.     End Structure
14.     Public Declare Function ClipCursor Lib "user32" (ByVal lpRect As RECT) As Integer
15.     Public Sub lockMouse()
16.         Dim lockRECT As RECT
17.         lockRECT.Left = 0
18.         lockRECT.Top = 0
19.         lockRECT.Right = 0
20.         lockRECT.Bottom = 0
21.         ClipCursor(lockRECT)
22.     End Sub
23.     Public Sub openMouse()
24.         Dim openRECT As RECT
25.         openRECT.Left = 0
26.         openRECT.Top = 0
27.         openRECT.Right = Me.Width
28.         openRECT.Bottom = Me.Height
29.         ClipCursor(openRECT)
31.     End Sub
32.     Private Sub btnLock_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLock.Click
33.         lockMouse()
34.     End Sub
35.     Public password As String
36.     Private Sub btnSetPassword_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSetPassword.Click
37.         Try
38.             password = InputBox("请输入你的密码：")
39.         Catch ex As Exception
40.             MsgBox("请输入正确有效的密码", MsgBoxStyle.OkOnly)
41.         End Try
44.     End Sub
46.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
48.     End Sub
50.     Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpen.Click
51.         Dim OpenPassword As String
52.         Try
53.             OpenPassword = InputBox("请输入密码:")
54.             If OpenPassword = password Then
55.                 openMouse()
56.             Else
57.                 MsgBox("密码错误")
58.             End If
59.         Catch ex As Exception
60.             MsgBox(ex.Message)
61.         End Try
63.     End Sub
64. End Class

出现错误的原因出于声明变量的方式上。

之前是用byval按值传递，因为它传递的是数值，如果每次按值传递的话，原函数是指针传递，就会出现参数类型不符，所以应该用Byref.