[VB.NET]コンボボックス(ComboBox)の項目数を取得

2021年10月1日

書式
ComboBox名.Items.Count

使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
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

VB.net

Posted by arkgame