不大不小的一个问题

[hobo_man]

vb中如何传一个指针变量给Api函数

[bobme]

利用VarPtr()函数就行了

[songyangk]

在定义API函数时，使用byref定义就行。

[lanren_me]

不行

[songyangk]

把你的API函数贴出来！

[hobo_man]

Private Type tagMOUSEMOVEPOINT
x As Long
y As Long
time As Long
dwExtraInfo As Long
End Type

Private Declare Function GetMouseMovePoints Lib "user32" Alias "GetMouseMovePointsEx" (ByVal cbSize As Long, ByRef lppt As Long, ByRef lpptBuf As Long, ByVal nBufPoints As Long, ByVal resolution As Long) As Long


Private Sub Command1_Click()
Dim p1 As tagMOUSEMOVEPOINT
Dim p2 As tagMOUSEMOVEPOINT
Dim ret As Long

ret = GetMouseMovePoints(Len(p1), VarPtr(p1), VarPtr(p2), Len(p2), 1)

MsgBox p1.x & " " & p1.y
MsgBox p2.x & " " & p2.y

End Sub

[smilejiangjun]

byref不就行吗

[ltpao]

Private Type tagMOUSEMOVEPOINT
x As Long
y As Long
time As Long
dwExtraInfo As Long
End Type

Private Declare Function GetMouseMovePoints Lib "user32" Alias "GetMouseMovePointsEx" (ByVal cbSize As Long, ByRef lppt As tagMOUSEMOVEPOINT, ByRef lpptBuf As tagMOUSEMOVEPOINT, ByVal nBufPoints As Long, ByVal resolution As Long) As Long


Private Sub Command1_Click()
Dim p1 As tagMOUSEMOVEPOINT
Dim p2() As tagMOUSEMOVEPOINT
Dim ret As Long,lPoints As Long
lPoints = 3
Redim p2(1 To lPoints) As tagMOUSEMOVEPOINT
ret = GetMouseMovePoints(LenB(p1), p1, p2(1), lPoints , 1)

MsgBox p1.x & " " & p1.y
MsgBox p2(1).x & " " & p2(1).y

End Sub

[hobo_man]

兄弟，还是不行