点击combox，combox.text的内容变成高亮并全选了，
在combox输入内容，如何清除combox列表里的所有内容，但不影响我在combox输入的内容

ComboBox1.Clear

清除列表,不清除输入的内容.
输入的内容是
text 属性

点击combox，combox.text的内容变成高亮并全选了    ---->点击时（切换焦点到combo时）本来就会全选 ，没明白说的什么意思

在combox输入内容，如何清除combox列表里的所有内容，但不影响我在combox输入的内容 --->既然可以输入内容，combox的Style应该就不会是2-dropdown list了吧。估计是你原来想直接用combo1.Clear来清除列表中的内容，但却把正在输入的内容也清除了。改用下面的
Dim i As Integer
Dim n As Integer
n = Combo1.ListCount - 1
For i = n To 0 Step -1
    Combo1.RemoveItem i
Next

我上午没去测试.



    Dim j As String
    j = Combo1.Text        '保存当前值
    Combo1.Clear           '清掉
    Combo1.Text = j        '显示当前值

这种方法也可以.
如果你要在 combo 中保存输入那项选择项,那就需要 楼上的一项一项的删.

清除后再添加，这样快过吧！~

这样是快一些...........

嗯,有人回答,学习学习

Smart

3楼的方法是好，但是要写在什么事件下呢？我的combo1实现的内容是根据姓名的拼音首字母来查找姓名，比如张勇志 张仪中，这两个的拼音首字母都为zyz，按照3楼的方法，combo1里的内容是全清空了，我输入zyz，只查找到一个zyz对应的姓名，另一个同为zyz的就查不到了

放到 combo1 修改内容 的那个事件里。
每当输入一个值时，
判断，当前是不是第一个字符，
如果是 到数据库里查找出包含这个字符的 内容，添加到列表中去。
如果不是，并且列表不为空，使用 3楼的方法，一个一个的删。把不符合条件的数据删掉就是了。

如：
当输入 z 时，把 z 开头的人都列出下拉列表中。
当继续输入 Y时 ，把 不以 zy 开头的内容都删掉。
当继续输入 Z 时，就继续把不以 ZYZ 开头的内容都删掉。