クラスGet関数エラーByRef

Question

私はcCavityと呼ばれるカスタムクラスを持っています。クラスの多くのプロパティの1つに、pAdjacencyという文字列配列があります。この配列には、各インデックスのノードの文字列名（FormatはC [＃of Node]）が含まれています。私はお互いに2つのノード名を使用してエッジ名を作成しようとしています。私がクラスオブジェクトのためにadjacency GET関数を呼び出そうとすると、私はByRef引数型の不一致を得て、なぜ私は見ることができません。

クラス取得機能：エラーを取得しているコードの

Public Property Get Adjacency(Index As Integer) As String 
    Adjacency = pAdjacency(Index) 
End Property 

章：

Sub CalculateEdges(cCavities() As cCavity, dEdges As Scripting.Dictionary) 
    'Dim i as integer 
    For i = 1 To UBound(cCavities) 
     If cCavities(i).AdjacencySize > MaxEdges Then MaxEdges = cCavities(i).AdjacencySize 
     'Dim j as Integer 
     For j = 1 To cCavities(i).AdjacencySize 
      dEdges.Add cCavities(i).Name & cCavities(i).Adjacency(j), 0 ' The error is taking place here, with the .Adjacency(j) 
     Next j 
    Next i 
End Sub 

問題のエラーは、次のとおりです。 "というエラーコンパイル：ByRefの引数の型の不一致" を

私は明白な何かを欠いていますか引数jは整数でなければなりません。何が起きているのかを把握しようとしている間、明示的にそのように定義しようとしました。

Answer 1

最初にOption Explicitを指定し、すべての変数を宣言してから、パラメータをByValにしてください。オブジェクトポインタと値を渡すことができます。配列はByRefに渡す必要があります。

だから、これで始まる：今すぐ

Public Property Get Adjacency(ByVal Index As Long) As String 
    Adjacency = pAdjacency(Index) 
End Property 

を、4-ライナースニペットがcCavities(i) 5回を参照解除されていること。ローカル変数を導入することを検討しましたが、を一度にデリファレンスしましたか？

For i = LBound(cCavities) To UBound(cCavities) 
    Dim foo As cCavity 
    Set foo = cCavities(i) 
    For j = 1 To foo.AdjacencySize 
     Dim edge As String 
     edge = foo.Name & foo.Adjacency(j) 
    Next 
Next 

今、fooという課題がありますか？その場合は、インテリセンス、cCavityメンバーコール、およびより効率的なコードがあります。

Answer 2

コンパイルエラーです。実行時エラーではありません。 jがVariantの場合（明示的に宣言されていない場合と同じように）、コンパイラはそれを許さないでしょう。すべての変数を適切な型で宣言します。

：何らかの理由でコンパイラが実行時にこれについて不平を言うだけですが、それでもコンパイルエラーです。