Sección de códigos , trucos y ejemplos para visual basic

47 - Autocompletar el contenido de un combo mientras escribimos y desplegarlo automaticamente.

Ejemplo para autocompletar un combobox a medida que se escribe, y también desplegar el cuadro de lista al recibir el foco, y cerrarla cuando pierde el foco

Vista del formulario de ejemplo con el combo desplegado y autocompletado

DEsplegar las coincidencias de los elementos de un combo cuando tipeamos

Para que el combo se le despliegue automaticamente la lista se usa la función Api SendMessageLong . En realidad es la función SendMessage, lo ínico que cambia el tipo de valor en el último parámetro

Primero cuando se carga el formulario agregamos algunos items. En el evento KeyPress del combo se verifica si se presionó la tecla enter, si es verdadero se utiliza la función SendMessageLong para desplegar el combo o para cerrarlo, es decir si se le pasa en el tercer parámetro el valor True la lista se despliega, si se le pasa False se cierra. En el primer parámetro se le pasa el Hwnd del Combo en cuestión.

Y para autocompletar al escribir, se utiliza la función Instr de visual basic y las propiedades de selección de texto que poseen los controles combo, textbox y otros, es decit SelStart, SelLenght y SelText

Controles

Colocar un control Combobox

Código fuente

Option Explicit 'Función Api SendMessageLong ( para desplegar la lista en forma automática ) Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" ( _ ByVal hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ ByVal lParam As Long) As Long 'Flag Private Backspaced As Boolean Private Sub Combo1_Change() 'Le pasamos el combo como parámetro Call AutoCompletar_combo(Combo1) End Sub Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode 'Permite Case vbKeyBack, vbKeyDelete Select Case Len(Combo1.Text) Case Is <> 0 Backspaced = True End Select End Select End Sub 'Función para autocompletar el combo. '------------------------------------------- Public Function AutoCompletar_combo(ctlComboBox As Control) Dim i As Integer Dim intSel As Integer Select Case (Backspaced Or Len(ctlComboBox.Text) = 0) Case True: Backspaced = False: Exit Function End Select With ctlComboBox 'RECORREMOS LOS ITEMS DEL COMBO BUSCANDO LA COINCIDENCIA 'DE LO QUE HAYA ESCRITO For i = 0 To .ListCount - 1 If InStr(1, .List(i), .Text, vbTextCompare) = 1 Then intSel = .SelStart .Text = .List(i) .SelStart = intSel .SelLength = Len(.Text) - intSel Exit For End If Next End With End Function Private Sub Combo1_KeyPress(KeyAscii As Integer) 'Esta linea es para que se despliegue la lista mientras escribimos _ pero si presionas la teclaEnter hacemos lo contrario, la cerramos _ fijate que esto lo determina la variable booleana TRue y False _ en el 3º parametro de la funcion api Dim resp As Integer 'Si se presionó enter cierra la lista If KeyAscii = 13 Then SendMessageLong Combo1.hwnd, &H14F, False, 0 Else 'Si no siempre la lista desplegada SendMessageLong Combo1.hwnd, &H14F, True, 0 End If End Sub Private Sub Form_Load() 'Llenamos el combo con algunos elementos With Combo1 .AddItem "Pedro" .AddItem "Marcelo" .AddItem "Mariano" .AddItem "Carolina" .AddItem "Jose" .AddItem "Maria" .AddItem "Estela" .AddItem "Fernando" .AddItem "Rodrigo" End With End Sub

Recursos vb6 - Enlaces relacionados

Buscar en Recursos vb