我通常是一名C#程序员,但我的任务是将古老的VB6更新为.NET,以便使用我们这里的附加程序。我遇到了标题中的错误。我已经跟踪了一个代码片段来处理VarPtr(here),从我读到的StrPtr中可以删除它,应该可以。无论我怎么努力,我都无法找到与ObjPtr一起使用的任何东西。
有两件事,如果VarPtr或StrPrt点错误,请纠正我,因为.NET不是我的第一语言,其次是HELP!
以下是其中一个错误的代码:
Private Function PrivatePtr(ByVal MyPtr As Integer, ByRef Obj As Object) As Integer
' returns corresponding pointer a private member of an
' object of this type (type of Me), given a pointer to
' Me's corresponding private variable
If (objptr(Obj) <> 0) Then
PrivatePtr = UnsignedAdd(ObjPtr(Obj), UnsignedSubtract(MyPtr, ObjPtr(Me)))
End If
End Function ' PrivatePtr