Ejemplos usando el Api de windows para Visual basic

85 - Ejemplo para autocompletar un combobox al escribir

Volver al Listado Api - Anterior - Siguiente

Dos Ejemplos para autocompletar un combobox a medida que escribimos

El primer ejemplo utiliza la función del APi SendMessage para autocompletar y mostrar las coincidencias de los elementos del control a medida que se escribe. El segundo ejemplo, es similar, pero permite cambiar el color de fondo cuando no se encontró coincidencias

Contenido

Ejemplo 1
Ejemplo 2
Enlaces relacionados

Ejemplo 1 con SendMessage

Formulario

Ejemplo para desplegar las coincidencias de los elementos de un control combo a medida que se escribe usando sendmessage

Colocar un ComboBox llamado combo1.

Código fuente en un formulario:

Option Explicit 'Función SendMessage Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _ ByVal hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) As Long Private Sub Form_load() Dim I As Long ' Agregamos algunos items For I = 1 To 7 Combo1.AddItem WeekdayName(I) Next End Sub Private Sub Combo1_KeyUp(KeyCode As Integer, Shift As Integer) Dim LenText As Long, ret As Long 'Si los caracteres presionados están entre el 0 y la Z If KeyCode >= vbKey0 And KeyCode <= vbKeyZ Then ret = SendMessage(Combo1.hwnd, &H14C&, -1, ByVal Combo1.Text) If ret >= 0 Then LenText = Len(Combo1.Text) Combo1.ListIndex = ret Combo1.Text = Combo1.List(ret) Combo1.SelStart = LenText Combo1.SelLength = Len(Combo1.Text) - LenText End If End If End Sub

Ejemplo 2

Autocompletar y cambiar el color de fondo del combo

Este otro código fuente , lo que hace es, cuando se escribe en el combo y no hay coincidencias, se muestra el color de fondo de otro color, como indicando que hay un error y no se encontró el elemento:

En cambio, cuando si hay coincidencia, se autocompleta la palabra con la propiedad SelStart y SelLength del combo

Colocar en el proyecto un control Combo llamado Combo1

Nota: los colores para el backcolor a usar, se definen en los valores de constantes COLOR_NO_ENCONTRADO y COLOR_NORMAL

Código fuente en el formulario

Option Explicit ' Constantes para indicar el color de fondo del combobox ''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Const COLOR_NO_ENCONTRADO = 255 ' color cuando no se encontró Const COLOR_NORMAL = vbWhite ' color cuando hay coincidencia Private Sub Combo1_KeyUp(KeyCode As Integer, Shift As Integer) Static cadena As String Dim i As Long With Combo1 ' si pesionamos las teclas de las flechas sale de la rutina If KeyCode = vbKeyUp Then Exit Sub If KeyCode = vbKeyDown Then Exit Sub If KeyCode = vbKeyLeft Then Exit Sub If KeyCode = vbKeyRight Then Exit Sub ' verifica qu no se presionó la tecla backspace If KeyCode <> vbKeyBack Then cadena = Mid(.Text, 1, Len(.Text) - .SelLength) Else '...tecla backspace If cadena <> "" Then cadena = Mid(cadena, 1, Len(cadena) - 1) End If End If For i = 0 To .ListCount - 1 If UCase(cadena) = UCase(Mid(.List(i), 1, Len(cadena))) Then .ListIndex = i Exit For End If Next ' Seelecciona .SelStart = Len(cadena) .SelLength = Len(.Text) If .ListIndex = -1 Then ' color de fondo del combo en caso de que no hay coincidencias .BackColor = COLOR_NO_ENCONTRADO Else ' Backcolor normal cuando hay coincidencia .BackColor = COLOR_NORMAL End If End With End Sub Private Sub Form_Load() ' Agrega algunos datos al control combo With Combo1 .AddItem "Juan" .AddItem "Jose" .AddItem "Pedro Rodrigues" .AddItem "Raul" .AddItem "Maria Rosales" .AddItem "Eugenia" .AddItem "Federico" .AddItem "Augusto" End With Me.Caption = "Autocompletar combo" End Sub

Relacionados

Buscar en Recursos vb