Enhanced ComboBox / Listbox

[Dragonspank]

What can someone use for a Combobox on the device to accept input too?
A library of somekind?

[Rioven]

Hi Dragonspank,
This was my old trick, I use textbox infont of the combobox...
see sample attached...

[klaus]

Hi Rioven,

I had a look at your trick, and have two comments.

- In my programs I use too a separate TextBox, but not overlapping the ComboBox, and two buttons, one to add the TextBox.Text at the end of the list and the second one to modify the selected item. I miss the last function in your trick.

- Your code:

<font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">Sub </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">Combobox1_SelectionChanged(Index,Value)</font></font>
<font size="2"><font face="Courier New">textbox1.Text=Combobox1.Item(Combobox1.SelectedIndex)</font></font>
</font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">End Sub</font></font></font></font></font></font></font></font></font>

can be simplified by this one:

<font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">Sub </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">Combobox1_SelectionChanged(Index,Value)</font></font>
<font size="2"><font face="Courier New">textbox1.Text=Value</font></font>
</font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">End Sub</font></font></font></font></font></font></font></font></font>

Best regards.

[Rioven]

Thanks Klaus! I've missed that code!
Sure, we could do many tricks/features on textbox and combobox combination on what you want to achieve. My sample is just adding items but cannot edit. You may post yours.

Regards,

[klaus]

Hi Rioven,

Here is an example how I use ComboBoxes and or ListBoxes in some of my programs.
I added also a ListBox, the princilpe is exactly the same as for the ComboBox but it shows better what happens.

You can:
- move items up and down
- insert an item on the selected position
- add an item at the end
- delete an item

Best regards.

EDIT: Removed the code, a new one is in post #7

[Dragonspank]

Nice! Thanks Rioven! Managed an implementation into my application.

Klaus, your code looks sweet, but I get an error in line 14 with the index value of 5 being not valid. So what is amiss with your ComboBoxTest?

Thanks again for the great help!

[klaus]

Here is the correct code.

I added the listbox later on and didn't test every thing again.

Sorry for that and best regards.

EDIT: Removed code, new code in post #11

[Dragonspank]

Excellent!!!!
In my humble newbie opinion:
I think this should make it to a Sticky somewhere on this forum!

Thank you all for this fantastic support!!

[Erel]

Edit: Moved thread to Code samples and changed thread's name.

[Rioven]

Originally Posted by klaus

Here is the correct code.

I added the listbox later on and didn't test every thing again.

Sorry for that and best regards.

Hello Klaus,
I've tested your code...pretty NICE!
When you make the listbox empty and press the delete or insert button it triggers error.

I have just added the conditions something like this, then it works...or you can have better solutions.

Sub btnDelete_Click
    <b>If cbxTest.Count>0 Then</b>
        cbxTest.RemoveAt(SelI)
        lbxTest.RemoveAt(SelI)
        If SelI>cbxTest.Count-1 Then
            SelI=SelI-1
        End If
        cbxTest.SelectedIndex=SelI
        lbxTest.SelectedIndex=SelI
    <b>End If    </b>
End Sub

Sub btnInsert_Click
    <b>If cbxTest.Count>0 Then</b>
        cbxTest.Insert(SelI,txtTest.Text)
        lbxTest.Insert(SelI,txtTest.Text)
        cbxTest.SelectedIndex=SelI
        lbxTest.SelectedIndex=SelI
    <b>End If    </b>
End Sub

Regards,