如何在VB6中重新初始化UDT？

Question

我有一个循环，正在读取一堆 XML 文件。对于每个 XML 文件，它会验证其中的数据，将其加载到一些 UDT 中，然后对数据进行处理。

然后回到循环开始的位置，UDT 中仍然保存着之前 XML 文件中的数据。如果新的 XML 文件中定义了某个标记，则覆盖该标记；但如果未定义该标记，则不会更改 UDT 中的元素。

但我无法像处理变量那样重置 UDT（Let X = 0），除非我遍历 UDT 的每个元素并重置其值。以对象方式（Set X as New UDT）执行也不起作用。

我该怎么做呢？

- Richard Gadsden

Answer 1

创建一个新的变量作为用户定义类型（UDT），并将旧变量设置为新变量。

例如：

Dim XEmpty as UDT
X = XEmpty

重新初始化一个变量X，它是一个类型为UDT的用户定义类型。

- Richard Gadsden

Answer 2

您可以使用一个空的实用函数，仅返回UDT。

public function newTFoo() as TFoo
'//
end function


dim t as TFoo
t.x = 1234 ...
t = newTFoo()
'// t is reset

- Alex K.