[VB.NET]コンボボックス(ComboBox)の項目数を取得
書式
ComboBox名.Items.Count
使用例
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'アイテムを追加
ComboBox1.Items.Add("item01")
'複数のアイテムを追加
Dim cft() As String = {"item02", "item03", "item04", "item05"}
ComboBox1.Items.AddRange(cft)
Dim cnt As Integer
'コンボボックスのアイテム数 ItemsコレクションのCountプロパティ
cnt = ComboBox1.Items.Count
'テキストボックスにアイテム数を表示
TextBox1.Text = "コンボボックスのアイテム数:" + cnt.ToString
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'アイテムを追加
ComboBox1.Items.Add("item01")
'複数のアイテムを追加
Dim cft() As String = {"item02", "item03", "item04", "item05"}
ComboBox1.Items.AddRange(cft)
Dim cnt As Integer
'コンボボックスのアイテム数 ItemsコレクションのCountプロパティ
cnt = ComboBox1.Items.Count
'テキストボックスにアイテム数を表示
TextBox1.Text = "コンボボックスのアイテム数:" + cnt.ToString
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'アイテムを追加 ComboBox1.Items.Add("item01") '複数のアイテムを追加 Dim cft() As String = {"item02", "item03", "item04", "item05"} ComboBox1.Items.AddRange(cft) Dim cnt As Integer 'コンボボックスのアイテム数 ItemsコレクションのCountプロパティ cnt = ComboBox1.Items.Count 'テキストボックスにアイテム数を表示 TextBox1.Text = "コンボボックスのアイテム数:" + cnt.ToString End Sub
結果
コンボボックスのアイテム数: 5