0

我有这种代码。
每次调用之前的方法时,它都应该将数组的大小(ReDim Preserve)调整 1.. 但是多维数组是不可能的,因为你会说这个错误'ReDim' can only change the rightmost dimension.

我研究的建议是使用 aList(Of List(Of Byte)
但我仍然无法弄清楚如何使用似乎我每次都必须继续创建新的 List 对象,任何建议都会有所帮助

Dim adjMatrix As Byte(,)
Dim setDimensions As Boolean = False

Public Sub connectNode(ByVal start As Node, ByVal endd As Node)
    'This method will be called to make connect two nodes
    If setDimensions = False Then
        ReDim Preserve adjMatrix(999 - 1, 999)
        setDimensions = True
    End If
    Dim startIndex As Integer = nodes.IndexOf(start)
    Dim endIndex As Integer = nodes.IndexOf(endd)
    adjMatrix(startIndex, endIndex) = 1
    adjMatrix(endIndex, startIndex) = 1
End Sub

我也必须访问它,我将如何使用 List(Of List(Of Byte)

If adjMatrix(index, j) = 1 Then
'Do stuff
End If
4

0 回答 0