ComboBox1显示多次选择问题求解

[jxjayxy]

Dim t, x As String
Private Sub ComboBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.LostFocus '失去焦点后
If t = "" Then
ComboBox1.Text = x
Else
ComboBox1.Text = t & "、" & x
End If
End Sub
Private Sub ComboBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ComboBox1.MouseDown
t = ComboBox1.Text
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
x = ComboBox1.Text
End Sub
'想在ComboBox1中显示多次选择,现在是一定要在选择后ComboBox1失去焦点单击其他控件才能实现，能不能通过模拟单击其他控件实现显示多次选择

[jxjayxy]

就是如：ComboBox1下拉框中有A，B，C项，第一次选择A，ComboBox1显示A，第二次选择后，将第二次选择的内容连接在第一次选择的结果后，如第二次选择的是C，则ComboBox1中显示为：A、C 第三次选择B，显示A、C、B 不知这样说清楚了吗，谢谢！！

[rmini]

不太明白你的多次选择是什么意思

[Tiger_Zhao]

不能。多选要用 CheckedListBox

[jxjayxy]

哦，那谢谢了！