Ver Mensaje Individual
  #3 (permalink)  
Antiguo 06/04/2005, 05:09
Avatar de lucasiramos
lucasiramos
 
Fecha de Ingreso: agosto-2004
Ubicación: Santa Rosa, La Pampa, Argentina
Mensajes: 1.484
Antigüedad: 20 años, 7 meses
Puntos: 13
Hola. Esta bien lo que te postea MikiBroki, pero en ese caso no va a poder escribir. Si es un combo que tiene muchos elementos, o que almacena nombres (como clientes, artículos, etc) es útil para el usuario poder escribir las primeras letras, luego presionar la flecha abajo del cursor y que seleccione el primer item coincidente. De ahi la importancia de que pueda escribir. Te paso una función que te puede servir. Va en el Lostfocus del combo.

Código:
Dim X As Integer
Dim Str As String
Dim Encontrado As Boolean
If Trim(Combo1.Text) <> "" Then
X = 0
Do While X <= Combo1.ListCount - 1
	If UCase(Trim(Combo1.List(X))) = UCase(Trim(Combo1.Text)) Then
	 Combo1.ListIndex = X
	 Encontrado = True
	 Exit Do
	End If
	X = X + 1
Loop
 
If Encontrado = False Then
	Combo1.SetFocus
End If
Else
Combo1.ListIndex = -1
End If
Este código recorre todos los items del combo y si no coincide con ninguno le pasa el foco al mismo combo, es decir, no lo deja salir hasta que ingrese un item que exista en la lista.

Espero que te sirva. Saludos. Lucas