Syntax

[vbgladiator]

This was posted by Serge on how to autocomplete a combobox.

what is the &gt?

When I put this code in my app, the line is red.

Private Declare Function SendMessageStr Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const CB_FINDSTRING = &H14C
 
 
Private Sub Combo1_Change()
    Dim lRetIndex As Long
    
    lRetIndex = SendMessageStr(Combo1.hwnd, CB_FINDSTRING, -1, ByVal Combo1.Text)
    If lRetIndex >= 0 Then Combo1.ListIndex = lRetIndex
End Sub

[kleinma]

Originally posted by vbgladiator
This was posted by Serge on how to autocomplete a combobox.

what is the &gt?

When I put this code in my app, the line is red.

Private Declare Function SendMessageStr Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const CB_FINDSTRING = &H14C
 
 
Private Sub Combo1_Change()
    Dim lRetIndex As Long
    
    lRetIndex = SendMessageStr(Combo1.hwnd, CB_FINDSTRING, -1, ByVal Combo1.Text)
    If lRetIndex >= 0 Then Combo1.ListIndex = lRetIndex
End Sub

If lRetIndex >= 0 Then Combo1.ListIndex = lRetIndex

> is the HTML code for >
did you replace > with > ?

[Cander]

huh? That didnt make much sense man.

&gt; <- that is a problem though. Is that the > you are talking
about?

[Hack]

Originally posted by vbgladitor
what is the >?

What is the what?

This is a routine I put together for auto complete, and I've had no problems with it.

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 Const CB_ERR = (-1)
Private Const CB_FINDSTRING = &H14C
 
Private Sub FindMatch(CB As ComboBox, KeyAscii As Integer)
 
            On Error Resume Next
            Dim MyBuffer As String
            Dim FindIt As Long
            MyBuffer = Left(CB.Text, CB.SelStart) & Chr(KeyAscii)
            FindIt = SendMessage((CB.hwnd), CB_FINDSTRING, -1, ByVal MyBuffer)
                If FindIt <> CB_ERR Then
                   CB.ListIndex = FindIt
                   CB.Text = CB.List(FindIt)
                   CB.SelStart = Len(MyBuffer)
                   CB.SelLength = Len(CB.Text)
                   KeyAscii = 0
            End If
 
End Sub
 
Private Sub Combo1_KeyPress(KeyAscii As Integer)
FindMatch Combo1, KeyAscii
End Sub

[vbgladiator]

Oh, OK.

[kleinma]

Originally posted by vbgladiator
No, I was referring to the actual

If lRetIndex &gt;= 0 Then Combo1.ListIndex = lRetIndex

Ampersand gt

so then we answered your question?

BTW hacks code works great.. i use it in one of my apps..

[Hack]

Oh...

It looks like a type to me....

[kleinma]

sometimes when you copy/paste code from an HTML page.. it sees certain characters as the HTML equivelent... so > showed up as &gt; when you pasted it...