运行效果:
运行程序:
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,指针。
感觉不是太理解。。。
运行效果:
运行程序:
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,指针。
感觉不是太理解。。。