vb怎么设置combo下拉多选

在VB中，可以使用CheckListBox控件来实现Combo下拉多选的效果。以下是一个示例代码：

1. 首先，在VB的Windows窗体应用程序中，将一个ComboBox控件和一个CheckListBox控件放置在窗体上。

2. 在窗体的Load事件中，将CheckListBox控件的Visible属性设置为False，以便在初始状态下隐藏它。

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    CheckListBox1.Visible = False
End Sub

3. 在ComboBox的DropDown事件中，将CheckListBox控件的位置和大小设置为和ComboBox相同，并将Visible属性设置为True，以便在下拉时显示它。

Private Sub ComboBox1_DropDown(sender As Object, e As EventArgs) Handles ComboBox1.DropDown
    CheckListBox1.Location = ComboBox1.Location
    CheckListBox1.Size = ComboBox1.Size
    CheckListBox1.Visible = True
End Sub

4. 在CheckListBox的ItemCheck事件中，将选中的项添加到ComboBox的Text属性中，并在取消选中时从Text中移除。

Private Sub CheckListBox1_ItemCheck(sender As Object, e As ItemCheckEventArgs) Handles CheckListBox1.ItemCheck
    If e.NewValue = CheckState.Checked Then
        ComboBox1.Text += CheckListBox1.Items(e.Index) + ";"
    Else
        ComboBox1.Text = ComboBox1.Text.Replace(CheckListBox1.Items(e.Index) + ";", "")
    End If
End Sub

这样，当用户在ComboBox中下拉时，会显示一个CheckListBox，用户可以在CheckListBox中选择多个项，选中的项会显示在ComboBox的文本框中。