Visual Basic - 2 Preguntillas Sencillas Por favor...

Life is soft - evento anual de software empresarial
 
Vista:

2 Preguntillas Sencillas Por favor...

Publicado por Nou (17 intervenciones) el 12/05/2006 19:37:00
1) En Visual Basic cómo puedo hacer para digitar en un text un código y que éste me jale un nombre en un combo box.
2)Cómo hacer para que al empezar a digitar ése código en el text, cuando yo escriba la primer letra o número me aparezca automáticamente

Sí alguien sabe por favor.... Gracias...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:2 Preguntillas Sencillas Por favor...

Publicado por Rodrigo (83 intervenciones) el 12/05/2006 20:11:03
Crea un formulario con un combobox llamado Combo1 y un textbox llamado Text1 y pega el siguiente codigo (espero te sirva):

Private Sub Form_Load()

Combo1.AddItem "Rojo"
Combo1.AddItem "Verde"
Combo1.AddItem "Amarillo"
Combo1.AddItem "Azul"
Combo1.AddItem "Blanco"
Combo1.AddItem "Naranja"
Combo1.AddItem "Cafe"

End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)

Call buscaDato(Text1.Text)

End Sub

Function buscaDato(texto As String)

Dim i As Integer

For i = 0 To Combo1.ListCount - 1
If UCase(Combo1.List(i)) = UCase(texto) Then
Combo1.ListIndex = i
Exit Function
End If
Next i
'Si llego aqui quiere decir que no encontró
Combo1.ListIndex = -1

End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar