タイトル | : [解決]動的ListBoxに値を入れるには? |
記事No | : 4043 |
投稿日 | : 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
|