VBA：使用自定义数据类型和函数返回数组（array（），array（））

Question

这是之前回答并解决的问题的扩展。试图让数组的数组，并遇到了同样的错误“只能在公共对象模块用户自定义类型都可以强制......”

我期待到使用集合，但还没有想通了这一点。

Option Explicit 

Public Type aType 
    P_Col As Integer 
    P_Rad As Single 
    P_X As Single 
    P_Y As Single 
End Type 

Public Type bType 
    Shp1() As aType 
    Shp2() As aType 
    Shp3() As aType 
End Type 



Function MakePatterns() As bType() 
Dim i  As Integer 
Dim circles() As aType 
Dim triangles() As aType 
Dim squares() As aType 
Dim shps()  As bType 


For i = 1 To 5 
    ReDim Preserve circles(i) 
    circles(i).P_Col = Int(i/2) 
    circles(i).P_Rad = i 
    circles(i).P_X = i * 10 + 1 
    circles(i).P_Y = i * 10 + 5 
Next 

For i = 1 To 5 
    ReDim Preserve triangles(i) 
    triangles(i).P_Col = Int(i/2) 
    triangles(i).P_Rad = i 
    triangles(i).P_X = i * 10 + 1 
    triangles(i).P_Y = i * 10 + 5 
Next 

For i = 1 To 5 
    ReDim Preserve squares(i) 
    squares(i).P_Col = Int(i/2) 
    squares(i).P_Rad = i 
    squares(i).P_X = i * 10 + 1 
    squares(i).P_Y = i * 10 + 5 
Next 

For i = 1 To 5 
    ReDim Preserve shps(i) 
    shps(i) = Array(circles(i), triangles(i), squares(i)) 
Next 

'For i = 1 To 5 
' Debug.Print circles(i).P_Col; circles(i).P_Rad; _ 
'  circles(i).P_X; circles(i).P_Y 
'Next 

MakePatterns = shps 

End Function 

Answer 1

因此引发你的异常的事情是，你使用的aType类型的数组为Shp1等。之后，你实现了它，因为它只是aType的一种类型，而不是aType的数组。

现在，基于你的回答，我想出了这个代码。您将以5个元素bType结尾，每个元素包含aType的5个元素。但是，您可以根据需要更改此选项，问题是，您现在有一个类型为bType的数组，其中包含类型为aType的数组以容纳圆，三角形和正方形。

Option Explicit 

Public Type aType 
    P_Col As Integer 
    P_Rad As Single 
    P_X As Single 
    P_Y As Single 
End Type 

Public Type bType 
    circles()  As aType 
    triangles() As aType 
    squares()  As aType 
End Type 

Function MakePatterns() As bType() 
Dim i, j  As Integer 
Dim shps()  As bType 


ReDim shps(4) 
For i = LBound(shps) To UBound(shps) 

     For j = 0 To 4 
     ReDim Preserve shps(i).circles(j) 
     With shps(i).circles(j) 
      .P_Col = Int(j/2) 
      .P_Rad = j 
      .P_X = j * 10 + 1 
      .P_Y = j * 10 + 5 
     End With 
     Next j 

     For j = 0 To 4 
     ReDim Preserve shps(i).triangles(j) 
     With shps(i).triangles(j) 
      .P_Col = Int(j/2) 
      .P_Rad = j 
      .P_X = j * 10 + 1 
      .P_Y = j * 10 + 5 
     End With 
     Next j 

     For j = 0 To 4 
     ReDim Preserve shps(i).squares(j) 
     With shps(i).squares(j) 
      .P_Col = Int(j/2) 
      .P_Rad = j 
      .P_X = j * 10 + 1 
      .P_Y = j * 10 + 5 
     End With 
     Next j 

Next i 

MakePatterns = shps 

End Function 

另外两个提示：

• 如果你已经知道你想有5项，申报5项阵列，而不是不断地调整它。
• 数组的索引从0开始，所以你可能想改变你的循环，以For i=0 To 4。否则，最终会得到第一个对象bType，其中仅包含aType的每个属性中的值为0的项目。