Question

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

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

Answer 1

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

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

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

1 个答案: