7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
youer511 2003-11-18
- 打赏
- 举报
散分
youer511 2003-11-18
- 打赏
- 举报
多谢多谢
yhl123 2003-11-18
- 打赏
- 举报
up
handsomge 2003-11-18
- 打赏
- 举报
VarPtr
rainstormmaster 2003-11-18
- 打赏
- 举报
Option Explicit
Private Type mytest
s1 As Long
s2 As Long
End Type
Private Sub Command1_Click()
Dim t As mytest
Dim i As Long
t.s1 = 1234
t.s2 = 234
i = VarPtr(t)
Debug.Print i
End Sub
Private Type mytest
s1 As Long
s2 As Long
End Type
Private Sub Command1_Click()
Dim t As mytest
Dim i As Long
t.s1 = 1234
t.s2 = 234
i = VarPtr(t)
Debug.Print i
End Sub
