List box problem

[makbd]

Can any body help me?

As I begin to write in a text box - the list box will show rearranging it items bring the items first those items matching the characters I am typing in the text box.

It should work as like MSDN index option.


Please help it urgent

[snakeeyes1000]

hmm... i'd reccomend on the keypress event, having it loop through all the elements in the listbox and see if what you've entered matches. if it does, move it to the top. something like

Sub Text1_KeyPress(KeyAscii as Integer)
    For c = 0 to List1.ListCount 'i forget if this is the right property, but you know what i mean
    If Text1.Text = Mid(List1.List(c),1,len(Text1.text)) Then
        str1=List1.List(0)
        str2=List1.List(c)
        List1.List(0)=str2
        List1.List(c)=str1
    End If
    Next c
End Sub

[cas21]

'use sendmessage API

Private Sub Text1_Change()
List1.ListIndex = SendMessage(List1.hWnd, _
LB_FINDSTRING, -1, ByVal Text1.Text)
End Sub