0

私はこの種のコードを持っています。
前のメソッドが呼び出されるたびに、配列のサイズを 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
4

0 に答える 0