How to select a combo box item programatically.

[neo008]

Hi All,

How can I select a combo box item programatically.

I am using VB6 and I have populated a combo box from database.


NE☼

[debasisdas]

Use the listindex property

try like this sample code
----------------------------------------

text1.text=cobmo1.list(combbo1.listindex)

[Killer42]

Try setting the .ListIndex property, or the .Text property of the combo box. Depending on exactly what you meant by "select", this may be what you're after.

[neo008]

Thank you for reply friends. Here I try to elaborate my problem

Adodc1.Recordset.AddNew
 
                TempH = InputBox("Enter New Item")
 
                Adodc1.Recordset.Update
                Adodc1.Refresh
 
                Call RefHCompCombo 'POPULATES ITEMS FROM DB
                Adodc1.Refresh
                MsgBox "New Item Added Successfully."

New Item is being added successfully but I want that newly added item as current selected item of combo box such that user should not have to again drop it down and select the newly added one.

Function which populates combo box causes combo box "Deselected"

In other cases I'm using Combo1.Text="ITEM NAME" and it works fine. But here it's not working.

Moreover even if it works -

1. Combo1.Text command just puts an string you want to display on combo box, it's not necessarily a combo box item.

2. Even If I give exact text as it's itemname would it behave like a selected item? means listindex property should give it's index by matching text.

I welcome any solutions/suggessions/mistakes/ideas

NE☼

[debasisdas]

I want that newly added item as current selected item of combo box

try to use

combo1.listindex=combo1.listcount-1

and set SORTED property to FALSE.

and for text use

str=combo1.list(combo1.listindex)


Hope that solves your problem.

[neo008]

Absolutely solved !!


Thanks Debasisdas !! I didn't try this.

NE☼