掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
複数あるクラスの Set ○○ = New □□ ひとつにまとめたい (ID:102812)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
魔界の仮面弁士さん、ありがとうございます。 書込みした内容で対応できないか検討しましたが、 【引用】 > '------ 標準モジュール(Module1) > Option Explicit > Public Function CreateSample(ByVal p As Integer) > If p = 0 Then > Set CreateSample = New Class1 > ElseIf p < 0 Then > Set CreateSample = New Class2 > ElseIf p > 0 Then > Set CreateSample = New Class3 > End If >End Function 上記部分を Set CreateSample = New Class ' ← ココを１回だけにしたいのです。 If p = 0 Then CreateSample.Test ElseIf p < 0 Then CreateSample.Test ElseIf p > 0 Then CreateSample.Test End If という感じにしたいのですが、出来ないでしょうか？
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.