タイトル : [解決]動的ListBoxに値を入れるには? 投稿日 : 2006/08/01(Tue) 12:56 投稿者 : ダンボ
うなまな さん、どうも有り難うございます。 > CType(Me._ListBox, ListBox).Items.Add("AA") そうです!! # をぉ、キャストだ。 # さすが、VB.net=VB+VC (大嘘)だ、という感激を得ました。 元サンプルの改変部分 Select Case CType(sender, System.Windows.Forms.Button).TabIndex Case 0 setControl = New System.Windows.Forms.ListBox CType(Me.setControl, ListBox).Items.Add("AA") CType(Me.setControl, ListBox).Items.Add("BB") CType(Me.setControl, ListBox).Items.Add("CC") Case 1 setControl = New System.Windows.Forms.ComboBox CType(Me.setControl, ComboBox).Items.Add("AA") CType(Me.setControl, ComboBox).Items.Add("BB") CType(Me.setControl, ComboBox).Items.Add("CC") Case 2 setControl = New System.Windows.Forms.TextBox CType(Me.setControl, TextBox).Text = "AA,BB,CC,DD" Case 3 setControl = New System.Windows.Forms.RichTextBox CType(Me.setControl, RichTextBox).ForeColor = Color.Red CType(Me.setControl, RichTextBox).Text = "AA,BB,CC,DD" End Select AddHandler Me.setControl.Click, AddressOf Me.Control_Click Sub Control_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) MsgBox(sender.Text) End Sub |