Arrays 如何在vb中在我的对象/类上创建数组？

我试图创建一个对象数组，但我一直遇到错误，我希望有人能解释一下，我在代码中做错了什么

Friend Class myPosition
    Friend x1 As Integer
    Friend y1 As Integer
    Friend x2 As Integer
    Friend y2 As Integer
End Class

Dim product(,) As myPosition

For product_y = 0 To max_product_y - 1
    For product_x = 0 To max_product_x - 1

        product(product_y, product_x).x1 = 1     
        product(product_y, product_x).y1 = 2
        product(product_y, product_x).x2 = 3
        product(product_y, product_x).y2 = 4

   Next product_x
Next product_y

---

没有初始化任何内容。您需要初始化数组（指定大小）和该数组中的所有对象

Friend Class myPosition
    Friend x1 As Integer
    Friend y1 As Integer
    Friend x2 As Integer
    Friend y2 As Integer
End Class

    Dim max_product_y = 10
    Dim max_product_x = 3

    ' Initialize array, specify the size of each dimension
    Dim product(max_product_y, max_product_x) As myPosition

    For product_y = 0 To max_product_y - 1
        For product_x = 0 To max_product_x - 1
            ' Initialize the object
            product(product_y, product_x) = New myPosition

            product(product_y, product_x).x1 = 1
            product(product_y, product_x).y1 = 2
            product(product_y, product_x).x2 = 3
            product(product_y, product_x).y2 = 4

        Next product_x
    Next product_y

---

将izdelek_risba更改为product抱歉键入错误您可以回答您的问题如果您包含收到的错误消息，将非常有用。无论如何，在使用数组

产品之前，您必须初始化它。事实上。。这就是错误：在使用它之前，您必须初始化您的阵列产品。。。“product（product_y，product_x）=New myPosition”节省了我的时间…@MirkoTipka如果是这样的话，那么要做的就是点击复选标记-这就是在这里说“谢谢”的方式。如果你要在这里参加，你真的应该参加，并学习如何这样做。接受答案和（稍后）你认为有帮助或信息丰富的向上投票的帖子有助于其他用户找到好的答案。感谢你的提示和帮助，Puropoix。我会再参加一次旅行。。。慢慢地：-）