simple combo doubt

[shanmugham]

i have a combo with list of names are

Shanmugham
Ramalingam
Murugam
Siva
Sivalingam
Muruganandham

just i type the letter S immediatly combo select the name Shanmugham (automatically come that name on the combo box)

next i type Si immediatly selct the name Siva

how can i do this in combo


shan

 

[gpzcrasher]

Try changing the combo box style to '1 - Simple Combo' and increasing the height.

Hope this helps --------------------------------
If it ain't broke, don't fix it!

 

[shanmugham]

thanks

it does not select, it only comes first position

i want to select and it comes automatically in the combo
selection area.
pl help..
shan

 

[johnwm]

Much as I hate posting chunks of code, this seems to answer the question exactly

This is swagged direct from the vb newsletter from

http://builder.com.com

SELECT ENTRIES QUICKLY IN A DROP-DOWN COMBO BOX

In combo boxes with many entries, the user often needs a way to quickly pick an entry. One way to accomplish this in VB6 is to provide a combo box that selects entries as the user types letters. This allows the user to narrow the list of items that they need to search.

To implement this, use the SendMessage API call and the CB_FINDSTRING message. First, place a combo box on a form. Set the style to 0--Dropdown Combo. Then add the following to the declarations section of the form:

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_FINDSTRING = &H14C

Add the following code to the Form_Load event to populate the combo box:

Call Combo1.AddItem("Baker&quot
Call Combo1.AddItem("Barber&quot
Call Combo1.AddItem("Barker&quot
Call Combo1.AddItem("Berkley&quot
Call Combo1.AddItem("Brown&quot
Call Combo1.AddItem("Carter&quot
Call Combo1.AddItem("Davis&quot

Next, add the following code to the Combo1_KeyPress event:

Dim lngRow As Long
Dim strSearchText As String

'Only process key if it is a character
If KeyAscii < 32 Or KeyAscii > 127 Then
Exit Sub
End If

If Combo1.SelLength = 0 Then
strSearchText = Combo1.Text
Else
strSearchText = Left(Combo1.Text, Combo1.SelStart)
End If
strSearchText = strSearchText & Chr(KeyAscii)

lngRow = SendMessage(Combo1.hwnd, CB_FINDSTRING, -1, ByVal
strSearchText)

If lngRow > -1 Then
Combo1.ListIndex = lngRow
Combo1.SelStart = Len(strSearchText)
Combo1.SelLength = Len(Combo1.Text) - Combo1.SelStart
End If
KeyAscii = 0

This code gets the current text from the combo box based on the selected text. It then calls the SendMessage API call, passing the hWnd of the combo box, the CB_FINDSTRING constant, -1 (to indicate that all rows should be searched), and the text to find. The return is the index of the matching row, or -1 if there was an error.

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'People who live in windowed environments shouldn't cast pointers.'

 

[shanmugham]

thanks for your help

during the run time the error shows the following line

lngRow = SendMessage(Combo1.hwnd, CB_FINDSTRING, -1, ByVal
strSearchText)

error mesg are &quot;Runtime Error49
bad DLL Calling convention&quot;

i think a small error..
pl hel me
thanks in advance
shan

 

[johnwm]

This bit:
lngRow = SendMessage(Combo1.hwnd, CB_FINDSTRING, -1, ByVal
strSearchText)

should all be on one line:
lngRow = SendMessage(Combo1.hwnd, CB_FINDSTRING, -1, ByVal strSearchText)
________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'People who live in windowed environments shouldn't cast pointers.'

 

[shanmugham]

thanks

i tried, same error continues

pl help me
shan

 

[shanmugham]

pl respond
shan

 

[johnwm]

It works for me as posted. Are you using VB6 with SP5?
________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'People who live in windowed environments shouldn't cast pointers.'

 

[VBOldTimer]

This code:

If Combo1.SelLength = 0 Then

Doesn't this always return zero in the combo keypress?

 

[shanmugham]

i am using vb6.0 with access 97,

i tried, same error continues, this is very urgent pls

pl help me
shan

 

[johnwm]

I ask again - Are you using Service Pack 5?

If not, then do the update available from:

http://msdn.microsoft.com/vstudio/downloads/updates/sp/vs6/sp5/dnldoverview.asp

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'People who live in windowed environments shouldn't cast pointers.'

 

[shanmugham]

i am using visual basic 6.0 enterprise edition

access 97

pl help me
shan