7,762
社区成员
发帖
与我相关
我的任务
分享
Option Explicit
Private Type i
a As Integer
aa(0 To 4) As Byte
b As Integer
c As Long
d As Byte
e As Integer
f As Long
End Type
Private Sub Command1_Click()
Dim test As i
test.a = 1
test.b = 2
test.c = 3
test.d = 10
test.e = 12
test.e = 12
MsgBox Len(test)
MsgBox VarPtr(test.a) & ":" & VarPtr(test.b) & ":" & VarPtr(test.c) & ":" & VarPtr(test.d) & ":" & VarPtr(test.e) & ":" & VarPtr(test.f)
End Sub
Private Type i
a As Integer
aa(0 To 4) As Byte
d As Byte
b As Integer
e As Integer
c As Long
f As Long
End Type