vincular un textbox con n combobox

Fernando
14 de Noviembre del 2003
He combinadoun textbox y un combobox con este codigo. Hay otra forma de hacerlo mejor.
En el Textbox solo voy a introducir numeros de 4 cifras y en el combobox me devuelve texto.

Private Sub ComboBox1_Change()
If ComboBox1.ListIndex = 0 Then
TextBox1 = "2048"
End If
If ComboBox1.ListIndex = 1 Then
TextBox1 = "0043"
End If
If TextBox1 = "0085" Then
ComboBox1.ListIndex = 2
End If
If TextBox1 = "0182" Then
ComboBox1.ListIndex = 3
End If

End Sub

Private Sub TextBox1_Change()
If TextBox1 = "2048" Then
ComboBox1.ListIndex = 0
End If
If TextBox1 = "0043" Then
ComboBox1.ListIndex = 1
End If
If TextBox1 = "0085" Then
ComboBox1.ListIndex = 2
End If
If TextBox1 = "0182" Then
ComboBox1.ListIndex = 3
End If

End Sub

CarlyDT
14 de Noviembre del 2003
No se si es lo que queres...
Private Sub ComboBox1_Change()
TextBox1.text= ComboBox1.text
end sub

Private Sub TextBox1_Change()
ComboBox1.text=TextBox1.text
end sub
proba asi y ves si es lo que queres