vb中如何清空combobox下拉列表而不影响输入框内的文字

1楼tianqing20wen的是先提取第0项的值然后清空Combo1，然后再给Combo1符第0项的值。由于代码执行速度快，所以我们都看不出其变化，这样也可以达到LZ的要求。下面是我的代码，直接删除第0项以外的所有项。
希望可以帮到你，满意请采纳，有问题请追问^_^

Private Sub Command1_Click()
Dim n As Integer
For n = Combo1.ListCount - 1 To 0 Step -1
Combo1.RemoveItem n
Next n
End Sub

闪星2 我对你的想法实不敢苟同 你试试选中任何选项后 执行你的代码 该是如何的结果

我提取的不是第0项的值 combo1.text 可不一定是第0项 第N项都行 甚至不在combo列表里都可以 还有抢分的行为可不好哦~除非你有更好的答案

Private Sub Command1_Click()
s = Combo1.Text
Combo1.Clear
Combo1.Text = s
End Sub

Private Sub Form_Load()
For i = 1 To 3
Combo1.AddItem i
Next
End Sub