VB6でカスタムクラスの匿名インスタンスを作成する

Question

VB6では、ユーザー定義クラスでコンストラクタを指定できないことを理解しています。だから、メインのコードブロックとエンティティという名前のユーザー定義クラスに寸法エンティティという名前のコレクションオブジェクトを与えられた：

Public Class Entry 
'local variable(s) to hold property value(s) 
Private mvarcurrNameValue As String 'local copy 
Private mvarnewwNameValue As String 'local copy 

Public Property Let newwNameValue(ByVal vData As String) 
    mvarnewwNameValue = vData 
End Property 

Public Property Get newwNameValue() As String 
    newwNameValue = mvarnewwNameValue 
End Property 

Public Property Let currNameValue(ByVal vData As String) 
    mvarcurrNameValue = vData 
End Property 

Public Property Get currNameValue() As String 
    currNameValue = mvarcurrNameValue 
End Property 
End Class 

は、どのように私は、VB6の領域で、次のC++/VB.NETイディオムを達成していますか？

For Each foo In bar 
    entities.Add (new Entity("Sinatra","Frank"))  'VB.NET seems to like this but not VB6 
Next 

事前にどれくらい多くのEntityインスタンスがあるかわかりません。

TIA、

まだ学習スティーブ

Answer 1

プロパティを設定し、オブジェクトインスタンスのメソッドを呼び出すにはfactory method

Public function NewEntry(a, b) As Entry 
    Dim o As Entry 
    Set o = New Entry 
    o.a = a 
    o.b = b 
    Set NewEntry = o 
End Function 

、その後

For Each foo In bar 
    entities.Add NewEntry("Sinatra","Frank") 
Next 

Answer 2

を試してみてください、あなたが必要ですそれを最初に変数に代入します。 割り当て後、プロパティを直接設定するか、カスタムInit()メソッドを使用することができます。クラスで

：ループでは

Public Sub Init(ByVal NewName As string, ByVal CurName As String) 
    mvarnewwNameValue = NewName 
    mvarcurrNameValue = CurName 
End Sub 

： 設定NewEntry =新規エントリ NewEntry.Init "weeble"、 "ボブ" entities.Add NewEntry

これらのいずれかを行うことができますあなたのループの中で直接的に、またはMarkJが言ったように工場の機能によって。 .Addに渡されると、そのインスタンスを新しいインスタンスに設定している限り、その変数を再利用できます。

Answer 3

他の2つの答えは問題なく、私は両方の方法を使用しました。しかし、私はもう一つの単純な解決策を考え出しました。ここではそれをやってのバニラVB6の方法は次のとおりです。

Dim tempEntity As Entity 
For Each foo In bar 
    Set tempEntity = New Entity 
    tempEntity.currNameValue = "Sinatra" 
    tempEntity.newwNameValue = "Frank" 
    Call entities.Add(tempEntity) 
    'Or if you prefer the no parens style use this: 
    'entities.Add tempEntity 
Next foo 

ノート命名規則上、下ケースメソッド/プロパティ名をリードする.NETまたはVB6でJavaで一般的ですが、ありません。