如何在vb6中声明用户定义类型的数组

Question

Type ABFator
    a As Single
    b As Sinlge
End Type

Dim ABFactorArr(8) As ABFactor

'基本上我想声明一个包含八个 ABFactor 的数组，然后我可以访问它

我这样做，编译器给出了未定义的错误用户定义类型

谢谢

Answer 1

拼写错误？缺少c？

• 您已将类型定义为ABFator没有 c
• 并且您已将数组ABFactor与 ac一样

Single您的类型定义也输错了

或者，也许您需要创建 Type Public，以防您在一个模块中定义它并在另一个模块中使用它？

（请将代码复制并粘贴到您以后的问题中，因为您在问题中以三种不同的方式拼写了 ABFactor！）

Answer 2

将其放在页面顶部 Form1 后面的代码中：

Private Type ABFactor
    a As Single
    b As Single
End Type


Private Sub Form_Load()

Dim ABFactorArr(8) As ABFactor
Dim i As Byte
For i = 0 To UBound(ABFactorArr)
    ABFactorArr(i).a = i
    ABFactorArr(i).b = i + 10
Next i
'quick test
Debug.Print ABFactorArr(6).b

End Sub