指定した名前のサブフォームがあれば開きたいです。

質問

指定した名前のサブフォームがあれば開きたいです。

現在、vb2005+XPで開発しております。
メインフォームからサブフォーム(予定数100個)を開くイベントで
指定した名前のフォームが
あれば開く…
なければ違うイベント…
そんな感じの開発を行っておりました。

現在は以下のようなソースです。

Dim myPath As String = System.Reflection.Assembly.GetExecutingAssembly().Location
Dim asm As System.Reflection.Assembly = System.Reflection.Assembly.LoadFile(myPath)
Dim t As Type = asm.GetType("YoushikiPrint.ClsF_" & PrtNoABC)

If t Is Nothing Then 'サブフォーム無の場合
Else 'サブフォーム有の場合
end if

やっとの思いでサブフォームが1個完成し
今日…2個目を作り始めました。

ところが…

asm.GetType("YoushikiPrint.ClsF_" & PrtNoABC)
の所でエラーが出るようになってしまい
1個目のフォームも開かなくなりました。

助けて下さい。
是非ご教示宜しくお願い致します。

回答No.2

reset_cat

asmにアセンブリが入っているのであれば、GetTypes()メソッドで現在存在する型の一覧を確認してはいかがでしょう？

あと１つ気になったのですが、System.Reflection.Assembly.GetExecutingAssembly()メソッドと変数asmは、同一アセンブリを指している事になると思いますが、LoadFile()メソッドは特殊な用途で使用されるとあります。何か目的があってLoadFile()メソッドを使用しているのでしょうか？

回答No.1

reset_cat

気が動転しているのかもしれませんが、肝心のエラー内容を提示してくれないと誰にも回答ができないと思います。

思い当たりそうなのは、変数asmがNothingになってしまっているとか、名前空間名が間違ってるとか・・・

お礼

言葉足らずで申し訳ございません。

Dim myPath As String = System.Reflection.Assembly.GetExecutingAssembly().Location
Dim asm As System.Reflection.Assembly = System.Reflection.Assembly.LoadFile(myPath)
Dim t As Type = asm.GetType("YoushikiPrint.ClsF_" & PrtNoABC)

確認した所2行目の変数asmには
バッチリ指定したコンパイル中のexeのアセンブリが表示されております。

エラーになっているのは変数tが
nothingを返しエラーになっている状況です。

変数prtNOABCは事前のロジックで
prtNOABC=100
となっていますので
Dim t As Type = asm.GetType("YoushikiPrint.ClsF_100")となります。

今、制作中のソフト内には
Cls_YoushikiPrint、ClsF_100、ClsF_110、ClsF_120
というフォームが用意されており
Cls_YoushikiPrintというフォームに配置してあるボタンを押した際
Dim myPath As String = System.Reflection.Assembly.GetExecutingAssembly().Location
Dim asm As System.Reflection.Assembly = System.Reflection.Assembly.LoadFile(myPath)
Dim t As Type = asm.GetType("YoushikiPrint.ClsF_" & PrtNoABC)
が動き変数tにフォームがあった場合は
値を返したいのでございます。

皆様…ご教示宜しくお願い致します。