ComboBox的超怪问题：

Question

上面的例子我试了一下  成功了啊
你是不是说点击以后要求排序而且当前显示为第一条  并不是空的????
这大概是列表框的毛病吧  大概真的得用api来实现了

Answer 1

combo1.text=s
换成combo1.text=combo1.list(0)行不行？？？

Answer 2

wgku(云霄) (  ) 信誉：100 
不行，我刚才试过了，不行！！！！
Combo1.Text = s '设置Text的内容为s，正常：text中显示s
End Sub '问题出现：text中没有显示任何东西
我觉得奇怪的是：Combo1.Text = s 成功
这个过程不是结束了吗？
怎么
End Sub 时出清空text的内容呢？

Answer 3

For i = 0 To Combo1.ListCount - 1
If Combo1.List(i) = s Then '循环所有Item,如果与s 相同，正常：text中显示s
Combo1.RemoveItem (i) '删除它，|正常：text中没有显示s
Exit For '并退出循环
End If
Next i 
不过，如果去赶紧掉上面的，可以

Answer 4

1、都是这样，一般在 Combo的事件里操作Combo的显示内容，大多数都不能正常显示。你可以试试把最后一句改成： 
Combo1.selectindex=新添加的Index号2、API是没有错的，返回0表示是第一项，呵呵
如果返回CB_ERR=(-1)才表示有错。

Answer 5

同意楼上的，试试combo1.selectindex=0

Answer 6

Index = SendMessage(Combo1.hwnd, CB_FINDSTRING, -1, cstr("mytext"))Private Sub Combo1_Click()
If Combo1.ListIndex = 0 Then Exit Sub
Combo1.AddItem Combo1.Text, 0
Combo1.RemoveItem Combo1.ListIndex
Combo1.ListIndex = 0
End SubPrivate Sub Form_Load()
With Combo1
.AddItem "a", 0
.AddItem "aa"
.AddItem "aaa"
.AddItem "bbbb"
End With
Combo1.ListIndex = 0
End Sub

Answer 7

感谢tg123(T.G.) 
其实就那么简单，真的有点气人。
也感谢
Chice_wxg(我怕谁？我是谁！我是流氓我最贼。) 
wgku(云霄)