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,指针。