姓名' ObjPtr'没有宣布。 VB6到VB.NET

时间:2015-01-26 21:28:16

标签: .net vb.net vb6

我通常是一名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

0 个答案:

没有答案