条件によってユーザコントロールを切り替えたい

こにし 2009-03-31 11:51:54 No: 141779 IP: 192.*.*.*

VB2008を使用し、ユーザコントロールを4つ作成し、条件に応じて表示するコントロールを変更しようと思います。
例えば、以下のように、変数KUBUNの値に応じて、表示させるユーザコントロール（ucKubun_1〜4）を設定し、
パネルPanel1にこれを表示しようというものです。

Dim ucUse As Control
Select Case KUBUN
    Case "1"
        ucUse = New ucKubun_1
    Case "2"
        ucUse = New ucKubun_2
    Case "3"
        ucUse = New ucKubun_3
    Case "4"
        ucUse = New ucKubun_4
End Select
Panel1.Controls.Add(New ucUse)

しかしながら、ユーザコントロールの名前がucKubun_1〜4というように、コントロール名の末尾が
変数KUBUNと同じなので、もっと簡単にコントロール設定ができないかと思い、質問させて頂きました。
例えば、上の例でいうと、
ucUse = hogehoge("ucKubun_" & KUBUN)
のような方法でコントロールを変数に格納出来ないでしょうか？
宜しくお願い致します。

編集削除

YuO 2009-03-31 21:09:00 No: 141780 IP: 192.*.*.*

リフレクションでできないこともないですが……。

せめて作成用のデリゲートやラムダ式を配列にしておくくらいにしておくのがよいと思います。
リフレクションにすると，逆にややこしくなると思いますし。

全部作っておいてVisibleで制御が一番簡単ですけどね……。

編集削除

YuO 2009-03-31 21:09:00 No: 141781 IP: 192.*.*.*

編集削除