0

1つのパネル（Panel1）、2つのコンボボックス（ComboBox1、ComboBox2）、1つのボタン（Button1）がすべて同じ形式（Form1）になっています。

ボタンがクリックされたとき：

Private Sub Button1_Click(sender As Object, e As EventArgs)
   Dim a as String = ComboBox1.SelectedValue() & Combobox2.SelectedValue()
   AddUserControl(a)
End Sub

の値aは、たとえば外部ユーザーコントロールの名前ですp1k1。次の方法を使用p1k1してPanel1、にという名前の外部ユーザーコントロールを追加できますか？Form1

Private Sub AddUserControl(ByVal a As String)
    Panel1.Controls.Add(a)
End Sub

これを機能させるにはどうすればよいですか？

通常、私は以下を使用します：

Panel1.Controls.Add(new p1k1)
4

2 に答える 2

0

これを行うには、リフレクションを使用する必要があります。このようなもの：

    Private Sub AddUserControl(ByVal a As String)
        Dim controlType As Type = Type.GetType(a)
        If controlType Is Nothing Then
            Throw New ArgumentException(String.Format("""{0}"" is not a valid type.  Type names are case sensitive.", a))
        ElseIf Not controlType.IsSubclassOf(GetType(Control)) Then
            Throw New ArgumentException(String.Format("""{0}"" does not inherit from Control.  Only Controls can be added to the control collection.", a))
        End If

        Dim newControl As Control = Activator.CreateInstance(controlType)
        If newControl Is Nothing Then
            Throw New ArgumentException(String.Format("Unspecified error when creating control of type ""{0}"".", a))
        End If
        Panel1.Controls.Add(newControl)
    End Sub
于 2012-11-11T19:51:50.603 に答える
0

私はついに私の答えを見つけました...

Private Sub AddUserControl(ByVal a As String)
Dim nmspace As String = "mynamespace"
Dim t As Type = Assembly.GetExecutingAssembly().GetType(nmspace & "." & a)
Dim o As Control = Activator.CreateInstance(t)
Panel1 .Controls.Add(o)
End Sub

于 2012-11-12T16:46:53.610 に答える