We help IT Professionals succeed at work.

We've partnered with Certified Experts, Carl Webster and Richard Faulkner, to bring you a podcast all about Citrix Workspace, moving to the cloud, and analytics & intelligence. Episode 2 coming soon!Listen Now

x

Incremental Search Using Combo Box in VB 4.0 (32-bit)

cccnem
cccnem asked
on
Medium Priority
455 Views
Last Modified: 2008-02-26
How do I implement a incremental search thru entering
text in the combo box in VB 4.0 (Something similar to
MS Access Combobox feature) ?  I have problem setting
the text of the combo box to the selected listitem's text
when the drop-down list of the combo box is visible.
I am not using Data Control , hence DBCombo is not a
solution.
Please help!  
Comment
Watch Question

Use the "DBCombo Control", you can get the definitions on VB Help.

Not the solution you were looking for? Getting a personalized solution is easy.

Ask the Experts

Author

Commented:
Edited text of question

Author

Commented:
I am not using Data Control in this instance, so DBCombo cannot solve the problem. Any other alternative?

Author

Commented:
I am not using Data Control in this instance, so DBCombo cannot solve the problem. Any other alternative?
At the begginig of the code put some thing like this...

*****************************************************************
Set SnapProcura = DB.CreateSnapshot("select DISTINCT[Titulo] from TAB_Procura ORDER BY Titulo")
    If SnapProcura.RecordCount > 0 Then
        While Not SnapProcura.EOF
            CmbPalavra.AddItem SnapProcura("Titulo")
            SnapProcura.MoveNext
        Wend
    End If
*****************************************************************
This code load the combo.

At the "Change" Event of the combo put something like this code...
*****************************************************************
Do While i < CmbPalavra.ListCount
       
     Expressao = Left$(CmbPalavra.List(i), Len(CmbPalavra.Text))
       
     If UCase$(CmbPalavra.Text) <= UCase$(Expressao) Then
            LstPalavra.TopIndex = i
            'LstPalavra.ListIndex = i
           
            i = 0
            Exit Do
      End If
      i = i + 1
Loop

*****************************************************************
This code make the search of the combo box.

good luck
Access more of Experts Exchange with a free account
Thanks for using Experts Exchange.

Create a free account to continue.

Limited access with a free account allows you to:

  • View three pieces of content (articles, solutions, posts, and videos)
  • Ask the experts questions (counted toward content limit)
  • Customize your dashboard and profile

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

OR

Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.