我有这种代码。
每次调用之前的方法时,它都应该将数组的大小(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