私はこの種のコードを持っています。
前のメソッドが呼び出されるたびに、配列のサイズを 1 ずつ変更 (ReDim Preserve) する必要があります。'ReDim' can only change the rightmost dimension.
私が調査した提案は、を使用するList(Of List(Of Byte)
ことでしたが、毎回新しいリストオブジェクトを作成し続ける必要があると思われる使用方法をまだ理解できません。提案があれば役立ちます
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