关于组合框的简单问题！急求教？

Question

Option ExplicitPrivate Sub Combo1_Click()
    Dim i As Integer
    Combo1.Clear
    For i = 0 To 3
        Combo1.AddItem "aaaaa", i
    Next
    Combo1.Text = "bbb"         '如果想给TEXT赋值应如何呢？
End SubPrivate Sub Form_Load()
    Dim i As Integer
    For i = 0 To 3          '初始化组合框
        Combo1.AddItem "aaaaa", i
    Next
End Sub如上代码：为什么按Command1后，组合框的TEXT值不会为“bbb“呢？？请各位高手们给点提示！

Answer 1

不是Command1而是组合框的CLICK事件！

Answer 2

不用combobox1的click事件，而用combobox1的dropdown事件

Answer 3

这样是可以实现combobox1的Text值为"bbb",但是我是要在用户选择Combobox1下拉框中的一个值后，才让Text的值为"bbb"，而照楼上的方法，一单击下拉箭头的话就出现“bbb”！变成说不能处理用户单击时的代码！

Answer 4

在Change事件中，更不行，马上出错的！各位高手们帮忙了，急用！~！~SOS~！~

Answer 5

請問:
既然我選擇了combo中的選項為什麼要顯示我不要的結果
謝謝.

Answer 6

怎么利用索引进行改变呢？TO： borntime(欲望冰点) 
我是要选择的结果，但是我还要再重新加载数据到组合框里，所以我一用。CLEAR属性，马上就会显示不出来的！

Answer 7

combo的TEXT属性有两个方式可以赋值：combo1.text="string"或者combo1.listindex=intVar

Answer 8

TO  billyqiao(如冰):
    我需要先把Combo里的所有值清空掉，然后再写入值，所以不能用listindex!

Answer 9

to stiffe02(灌水家) 
你說
'我是要在用户选择Combobox1下拉框中的一个值后，才让Text的值为"bbb"，'
那請問,之前用戶選擇"aaaaa"又是什麼意思呢,為什麼不在combobox里直接加個'bbb'
讓用戶選擇,而搞的那麼麻煩,如果在 combo_click事件中使用combo.clear
執行完combo_click后,combo.listindex的值仍然是-1,
所以不會當然顯示空啦,因而在combo_click中給combo.text付值是沒有用的

Answer 10

TO： borntime(欲望冰点) 首先我对我自己所表达的意思不清楚表示道歉！因为我的所需的功能只是跟这个示例差不多一样，只不过我简化而已，但是我确实需要这样的功能！我所想解决的是：组合框中有很多记录，但是我需要在用户选择一条后，执行完一段代码，这段代码会清空组合框中的记录，然后再重新读取记录到组合框中，最后再把用户所选的记录显示在组合框中，也是就把BBB显示出来！但是为什么我执行代码后就没办法把BBB保存起来，并恢复到组合框中呢？

Answer 11

不是Command1而是组合框的CLICK事件！

Answer 12

你需要實現的功能是不是有點像MS word中的頁面比例選擇?反正我覺得在combo1_click事件中不能combo1.clear麼這

Answer 13

想给它付bbb，那么在下拉列表中就该有bbb

Answer 14

以下代碼基本能實現word中頁面比例選擇的那個下拉框的功能當你選擇下拉框中第一個"aaaaa"后combo1.text值被付值"bbb",按照這種方法,可以根據要求修改選擇不同列表項時text的值看看還符合你要求嗎?
'------------------------------------
'Option Explicit
Dim ShowInCombo As String
Dim UpdateCombo As BooleanPrivate Sub Combo1_Click()
    Dim i As Integer
    If Not UpdateCombo Then
        UpdateCombo = True
        i = Combo1.ListIndex
        Select Case i
        Case 0
            ShowInCombo = "bbb"
        Case Else
            UpdateCombo = False
            Exit Sub
        End Select
        Combo1.RemoveItem Combo1.ListIndex
        Combo1.AddItem ShowInCombo, i
        Combo1.ListIndex = i
        UpdateCombo = False
    End If
End SubPrivate Sub Combo1_DropDown()
    Dim i As Integer
    Dim str As String
    str = Combo1.Text
    Combo1.Clear
    For i = 0 To 3
        Combo1.AddItem "aaaaa", i
    Next
    Combo1.Text = str
End SubPrivate Sub Form_Load()
    Dim i As Integer
    UpdateCombo = False
    For i = 0 To 3
        Combo1.AddItem "aaaaa", i
    Next
End Sub