Solved

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

Posted on 1997-04-23
5
402 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!  
0
Comment
Question by:cccnem
  • 3
  • 2
5 Comments
 
LVL 1

Accepted Solution

by:
milton042297 earned 100 total points
ID: 1425639
Use the "DBCombo Control", you can get the definitions on VB Help.
0
 

Author Comment

by:cccnem
ID: 1425640
Edited text of question
0
 

Author Comment

by:cccnem
ID: 1425641
I am not using Data Control in this instance, so DBCombo cannot solve the problem. Any other alternative?
0
 

Author Comment

by:cccnem
ID: 1425642
I am not using Data Control in this instance, so DBCombo cannot solve the problem. Any other alternative?
0
 
LVL 1

Expert Comment

by:milton042297
ID: 1425643
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
0

Featured Post

Highfive + Dolby Voice = No More Audio Complaints!

Poor audio quality is one of the top reasons people don’t use video conferencing. Get the crispest, clearest audio powered by Dolby Voice in every meeting. Highfive and Dolby Voice deliver the best video conferencing and audio experience for every meeting and every room.

Join & Write a Comment

Suggested Solutions

Title # Comments Views Activity
Extract Data and filename Macro 20 99
Window placement 17 65
VB error "Type mismatch" 2 43
using web browser with BING 40 86
Article by: Martin
Here are a few simple, working, games that you can use as-is or as the basis for your own games. Tic-Tac-Toe This is one of the simplest of all games.   The game allows for a choice of who goes first and keeps track of the number of wins for…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

706 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

22 Experts available now in Live!

Get 1:1 Help Now