クラスの設定について

Question

変数をクラスに設定するときのコードの書き方ですが、

sub プロシージャー名()
dim m as クラス名
set m = new クラス名
・・・・
end sub
と
sub プロシージャー名()
dim m as new クラス名
・・・・
end sub
とかいても（簡単なプログラムでは）同じ働きをするのですが
違いはあるのでしょうか。

1050YEN · Accepted Answer

[Aタイプ]
As New Class1

[Bタイプ]
As Class1
= New Class1


.NETであれば、どちらでもよいと思います。

.NETではないVBや、VBAでは、私個人としてはBタイプはお勧めしません。

あるメーリングリストの請負いなのですが、As New撲滅推進キャンペーンをしておりました。
(.NETがまだない時代からのメーリングリストです)


Bタイプの
Dim 変数 As New Class1

で

Set 変数 = Nothing
としても変数がNothingされず、再度「New Class1」がセットされるようです。

その結果、無駄にメモリを消費し続けるという状態になるようです。

しかし.NETからは、Nothingはされるので、どちらでもよいと思います。

1050YEN · Answer

＃2です。

メーリングリストの内容を一部引用します。

 Dim rs As New ADODB.Recordset
の場合，rs が参照されるところではつねに
If rs Is Nothing Then
　　Set rs = New ADODB.Recordset
End If
というコードが暗黙のうちに挿入されているということになります。
結果毎回判定を行い、小規模のプロジェクトであれば気にする必要のレベルではないかも知れないけど、処理速度が遅くなってしまうという欠点があるそうです。


私の環境にVB6のMSDNがインストールされていないのですが、、、
上記のような発言をされた方は、MSDNの以下の項を読むように、言っておりました。

[Visual Studio 6.0 ドキュメント]
└[Visual Basic ドキュメント]
　└[Visual Basic の使用方法]
　　└[プログラミング ガイド]
　　　└[Visual Basic を使ってできること]
　　　　└[各種のコンポーネントを利用したプログラミング]
　　　　　└[オブジェクトへの参照の作成方法]
　　　　　　├
　　　　　　：
　　　　　　：
　　　　　　└

dsuekichi · Answer

その変数に対するオブジェクトの生成を1回しかやらない（明示的にNothingを代入しない）なら、違いはほとんどありません。

「As New」を指定しない場合、一旦、その変数にNothingを設定してオブジェクトを破棄した後に、
再度その変数でオブジェクトを使用しようとした場合、もう一度
明示的に「= New」 を実行しなければなりません。
＃そうしないとエラーになる。

「As New」を指定した場合、オブジェクトを破棄した後、
再度その変数でオブジェクトを使用しようとした場合、自動的に「New」が実行されます。

＃その変数を再度アクセスしない限りNewは実行されません。
＃便利な反面、オブジェクトの生成・破棄のタイミングが分かりにくくなります。

tsukasa-12r · Answer

違いはないと考えてよいです。
Dim m As New クラス名
の場合、実際にインスタンスが生成されるのは、最初に m が参照されるときですが、違いができるとすれば、インスタンスが生成されるタイミングくらいではないでしょうか。

クラスの設定について

[Aタイプ]

＃2です。

その変数に対するオブジェクトの生成を1回しかやらない（明示的にNothingを代入しない）なら、違いはほとんどありません。

違いはないと考えてよいです。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング