VBA [クラス] - 別のサブのクラスのインスタンス化されたインスタンスにアクセスする方法

Question

私のプログラムの特定のサブの中でクラス "Dog"のインスタンス "Lassie"を作成しました。私はLassie.Age = 7やLassie.HeelCapability = Falseのような有用なプロパティも与えました。

subにアクセスして、Lassie.HeelCapabilityをTrueに変更したいとします。 この新しいサブの中でインスタンス "Lassie"を定義するにはどうすれば作業できますか？

私はaccrossはこのようになってきたすべてのコード：

基本的に

Dim Lassie As classDog 

Set Lassie = New classDog 

私が探しています何がキーワードを使用せずに、別のサブに既存のインスタンス「名犬ラッシー」をインポートする方法です「新」以前に与えられたすべての特性を持たずに新しい "ラッシー"を作成する。

私が受け取っているエラーメッセージは、「オブジェクトが必要です」または「オブジェクト変数かブロック変数が設定されていません」と伝えています。

確かにこれを行う方法があります。

ありがとうございます。

Answer 1

「Lassie」をパラメータとして他のサブに渡す必要があります。

public sub DeclareSub() 
    Dim Lassie as classDog 
    Lassie = new classDog 

    OtherSub Lassie 
end sub 

public sub OtherSub(ByRef dog as classDog) 

end sub 

サブルーチンにおける変数 '犬' OtherSub「DeclareSub」から変数「ラッシー」と同じオブジェクト・インスタンスを指します。

Answer 2

ByRefのオブジェクトを新しいサブルーチンに渡します。

Sub ChangeHeel(ByRef olassie As classDog) 
    'change the object here, and it will be changed in the calling sub 
    olassie.HeelCapability = True 
End Sub