Private Type mydat
len1 As Integer
str1 As String * 50
End TypePrivate Sub Form_Load()
Dim aa(11) As mydat
Debug.Print VarPtr(aa(0)), VarPtr(aa(1))
Debug.Print
'aa(0).str1 = "asdfasdf"
'aa(1).str1 = "312412351asdfasdf"
Debug.Print VarPtr(aa(0).len1), VarPtr(aa(0).str1)
Debug.Print VarPtr(aa(1).len1), VarPtr(aa(1).str1)
Debug.Print VarPtr(aa(2).len1), VarPtr(aa(2).str1)
Debug.Print VarPtr(aa(3).len1), VarPtr(aa(3).str1)
End Sub
为什么VarPtr(aa(0).str1),VarPtr(aa(1).str1),VarPtr(aa(2).str1),VarPtr(aa(2).str1) 的结果为一样,应该不是这样
len1 As Integer
str1 As String * 50
End TypePrivate Sub Form_Load()
Dim aa(11) As mydat
Debug.Print VarPtr(aa(0)), VarPtr(aa(1))
Debug.Print
'aa(0).str1 = "asdfasdf"
'aa(1).str1 = "312412351asdfasdf"
Debug.Print VarPtr(aa(0).len1), VarPtr(aa(0).str1)
Debug.Print VarPtr(aa(1).len1), VarPtr(aa(1).str1)
Debug.Print VarPtr(aa(2).len1), VarPtr(aa(2).str1)
Debug.Print VarPtr(aa(3).len1), VarPtr(aa(3).str1)
End Sub
为什么VarPtr(aa(0).str1),VarPtr(aa(1).str1),VarPtr(aa(2).str1),VarPtr(aa(2).str1) 的结果为一样,应该不是这样
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货