怎样清空Type类型数据？ （很多层）

[ufo_ufo]

??

[programart_life]

我不是已经回答了么？
用ZeroMemory API函数试试看。如果不行，就只能一层一层的手动清除了。

[ufo_ufo]

不会吧, 这么麻烦?

没有简单的方法了?

[handsomge]

重新Dim一下不可以吗

[litsnake1]

我同意一楼，但是如果你实在不想象一楼兄弟所说的去做。我给你一个方法。
Private Type POINTAPI
x As Long
y As Long
End Type
Private Type Re
leftp As POINTAPI
right As POINTAPI
c As Integer
End Type

Private Sub Command1_Click()
Dim a As Re, b As Re
a.leftp.x = 10
a.leftp.y = 80
a.right.x = 33
a.right.y = 34
a.c = 44
clear b, a
Debug.Print a.leftp.x
Debug.Print b.leftp.y
End Sub
Private Sub clear(pt1 As Re, pt2 As Re)
pt2 = pt1
End Sub
在你使用过程中，你只需要，多定义一个变量b，记住这个变量要跟你想清空的变量是同一类型，而且不用给b初始话的，然后调用clear b，a就可以了