掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
複数あるクラスの Set ○○ = New □□ ひとつにまとめたい (ID:102816)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Kozさん、ありがとうございます。実現できました！ > Dim clsObject1 As Object > Dim clsObject2 As Object > Dim clsObject3 As Object > 'DLLはActiveX.DLL です。 > Set clsObject1 = New Class1 'A010.DLL のクラスモジュール > Set clsObject2 = New Class2 'A020.DLL のクラスモジュール > Set clsObject3 = New Class3 'A030.DLL のクラスモジュール の部分を Dim strClass AS String If p = 0 Then strClass = "A010.Class1" ElseIf p < 0 Then strClass = "A020.Class2" ElseIf p > 0 Then strClass = "A030.Class3" End if Set CreateSample = CreateObject(strClass) とすることで対応できました。 ありがとうございます。 魔界の仮面弁士さんも書込みありがとうございました。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.