VB编程：获取对象私有域的地址

VB编程：获取对象私有域的地址

运行效果：

运行程序：

Private Sub Command1_Click()
    Dim num As Integer
    Text1.Text = ObjPtr(Text1)      '获取对象地址
    Text3.Text = StrPtr(Text2.Text) '获取字符串首位地址
    Text4.Text = VarPtr(num)        '获取变量地址
End Sub

总结：

object，对象;pointer，指针。