运行效果:
运行程序:
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,指针。
感觉不是太理解。。。
下一篇:[转载]关于字体的一些常识
端点(API接口)访问获取IP地址!
Django 数据库db.sqlite3 可以使用轻量级数据库SQLite Expert Personal管理
举报文章
请选择举报类型
补充说明
0/200
上传截图
格式支持JPEG/PNG/JPG,图片不超过1.9M