Programación General > Visual Basic 6.0 e inferiores

 Autocompletar En Un Datacombo

(1/1)

desarrollo:
Hola a Todos "Feliz Navidad "   :hola:

Tengo una inquietud me podrian decir si es posible hacer un autocompletar en un DataCombo , desde ya mil gracias por su ayuda

Desarrollo   :comp:

Brroz:
Hola Desarrollo.

La verdad, esto nunca lo he probado en un DataCombo (no uso, gracias), pero en un combobox corriente y moliente algo de este estilo funciona:


--- Código: Text --- Option Explicit 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 Public Sub BuscarEnCombo(ByRef Combo As ComboBox, ByRef KeyAscii As Integer)     If KeyAscii = 27 Or KeyAscii = 13 Or Combo Is Nothing Then Exit Sub            Dim s1 As String, lPos As Long    If Combo.SelLength = 0 Then        s1 = Combo.Text & Chr(KeyAscii)    Else        s1 = Left(Combo.Text, Combo.SelStart) & Chr(KeyAscii)    End If    lPos = SendMessage(Combo.hwnd, &H14F, 1&, 0&)    lPos = SendMessage(Combo.hwnd, &H14C, -1&, ByVal s1)    If lPos > -1 Then        Combo.ListIndex = lPos        Combo.SelStart = Len(s1)        Combo.SelLength = Len(Combo.Text) - Combo.SelStart        KeyAscii = 0    End If End Sub  
Suerte.

Navegación

[0] Índice de Mensajes