VB.Net - ComboBox 组合框控件

ComboBox 控件用于显示各种项目的下拉列表。 它是用户输入项目的文本框和用户从中选择项目的下拉列表的组合。

让我们通过从工具箱中拖动 ComboBox 控件并将其放到窗体上来创建一个组合框。

您可以从属性窗口或在运行时填充列表框项目。 要将项目添加到组合框，请选择组合框控件并转到属性窗口以获取该控件的属性。 单击 Items 属性旁边的省略号 (...) 按钮。 这将打开"字符串集合编辑器"对话框，您可以在其中一行输入一个值。

ComboBox组合框控件的属性

以下是ComboBox控件的一些常用属性 −

ComboBox组合框控件的方法

以下是ComboBox控件的一些常用方法 −

ComboBox控件的事件

以下是ComboBox控件的一些常用事件 −

示例

在此示例中，让我们用各种项目填充组合框，获取组合框中选定的项目并将它们显示在列表框中并对项目进行排序。

拖放一个组合框来存储项目，一个列表框来显示所选项目，四个按钮控件添加到包含所选项目的列表框中，分别用于填充组合框、对项目进行排序以及清除组合框列表。

添加一个将显示所选项目的标签控件。

在代码编辑器窗口中添加以下代码 −

Public Class Form1
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
      ' 设置表单的标题栏文本。
      Me.Text = "tutorialspont.com"
   End Sub
   
   '将选定的项目发送到列表框
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
      If ComboBox1.SelectedIndex > -1 Then
          Dim sindex As Integer
          sindex = ComboBox1.SelectedIndex
          Dim sitem As Object
          sitem = ComboBox1.SelectedItem
          ListBox1.Items.Add(sitem)
      End If
   End Sub
   
   '填充列表
   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
      ComboBox1.Items.Clear()
      ComboBox1.Items.Add("Safety")
      ComboBox1.Items.Add("Security")
      ComboBox1.Items.Add("Governance")
      ComboBox1.Items.Add("Good Music")
      ComboBox1.Items.Add("Good Movies")
      ComboBox1.Items.Add("Good Books")
      ComboBox1.Items.Add("Education")
      ComboBox1.Items.Add("Roads")
      ComboBox1.Items.Add("Health")
      ComboBox1.Items.Add("Food for all")
      ComboBox1.Items.Add("Shelter for all")
      ComboBox1.Items.Add("Industrialisation")
      ComboBox1.Items.Add("Peace")
      ComboBox1.Items.Add("Liberty")
      ComboBox1.Items.Add("Freedom of Speech")
      ComboBox1.Text = "Select from..."
   End Sub
   '对列表进行排序
   
   Private Sub Button3_Click(sender As Object, e As EventArgs)
      ComboBox1.Sorted = True
   End Sub
   '清除列表
   
   Private Sub Button4_Click(sender As Object, e As EventArgs)
      ComboBox1.Items.Clear()
   End Sub
   '在标签上显示所选项目
   
   Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) _
     Handles ListBox1.SelectedIndexChanged
      Label1.Text = ComboBox1.SelectedItem.ToString()
   End Sub
End Class

当执行上述代码并使用 Microsoft Visual Studio 工具栏上的开始按钮运行时，将显示以下窗口 −

单击各个按钮以检查每个按钮执行的操作 −

❮ vb.net_basic_controls.html