7,763
社区成员
发帖
与我相关
我的任务
分享
Private Declare Function SAAT_TCPInit Lib "abc.dll" _
(ByRef pHandle As Long, ByVal pHostName As String, ByVal nsocketPort As Long _
) As Byte
Private Sub Command1_Click()
Dim hHandle As Long
Dim pHandle As Long
pHandle = VarPtr(hHandle) '指针
Call SAAT_TCPInit pHandle, ... 'ByRef 参数自动取指针的指针
End Sub