VB COMBO立即响应问题

Question

谁能帮忙帮我解决一个问题。在一个ＶＢ程序中，要立即响应combo选择框的改变（即选择框一改变选项，就立刻将结果传递进去）！

Answer 1

Option Explicit
Private Sub Combo1_Click()
        Text1.Text = Combo1.List(Combo1.ListIndex)
End SubPrivate Sub Form_Load()
        Dim i As Integer
        
        For i = 0 To 10
            Combo1.AddItem "abcd" & i
        Next
        
        Combo1.ListIndex = 0
        Text1.Text = ""
End Sub

Answer 2

Option ExplicitPrivate Sub Combo1_KeyPress(KeyAscii As Integer)
        Dim i As Integer
        If KeyAscii = 13 Then '按回车键
           For i = 0 To Combo1.ListCount - 1
               If StrComp(Combo1.Text, Combo1.List(Combo1.ListIndex)) <> 0 Then
                  Combo1.AddItem Combo1.Text
                  Exit Sub
               End If
           Next
        End If
End SubPrivate Sub Form_Load()
        Dim i As Integer
        
        For i = 0 To 10
            Combo1.AddItem "abcd" & i
        Next
        
        Combo1.ListIndex = 0
        Text1.Text = ""
End Sub

Answer 3

传递到数据库中．而且最好不要用textbox.我想在combox的下拉列表中选择后就可以直接传到数据中