Very quick question on comboxbox items..

[Dan Keeley]

Hi,

As far as i can tell this can't be done, but thought i'd quickly ask, I have
4 labels in my combobox, and i want to add them to the box with a numeric
"value" and then get that value of the currently selected item. I want the
combobox to display the text not the value of course..

Is this possible with the standard combobox??

Thanks,
Dan

[Fergus Cooney]

Hi Dan,

While that will certainly work for a few items, here's a couple of
suggestions.

With the code that you have, you use Coption once and then discard it.
Then you declare and use Coption2, and so on. You could simply keep using
Coption each time. Coption = New ComboItem.

What I would do, though, is add a constructor to the ComboItem class

Class ComboItem
: : :
Public Sub New (ThisName As String, ThisOptionValue As Integer)
Name = ThisName
OptionValue = ThisOptionValue
End Sub
End Class

Then it can be initialised like so:
aComboBox.Items .Add (New ComboItem ("Unacceptable" , 100))
aComboBox.Items .Add (New ComboItem ("Major Non-Comp", 50))
aComboBox.Items .Add (New ComboItem ("Minor Non-Comp", 20))
aComboBox.Items .Add (New ComboItem ("Satisfactory" , 9))

Regards,
Fergus

[Dan Keeley]

Ah, Excellent thats exactly the sort of thing i should have been thinking
of.

I did try re-using Coption by the way, and it didnt work, I got the last
item i'd added 4 times.. This confused me a lot! strange.

Thanks for all your help tonight, I owe you a beer!

Dan

"Fergus Cooney" <fi******@tesco .net> wrote in message
news:eu******** ******@TK2MSFTN GP11.phx.gbl...

Hi Dan,

While that will certainly work for a few items, here's a couple of
suggestions.

With the code that you have, you use Coption once and then discard it.
Then you declare and use Coption2, and so on. You could simply keep using
Coption each time. Coption = New ComboItem.

What I would do, though, is add a constructor to the ComboItem class

Class ComboItem
: : :
Public Sub New (ThisName As String, ThisOptionValue As Integer)
Name = ThisName
OptionValue = ThisOptionValue
End Sub
End Class

Then it can be initialised like so:
aComboBox.Items .Add (New ComboItem ("Unacceptable" , 100))
aComboBox.Items .Add (New ComboItem ("Major Non-Comp", 50))
aComboBox.Items .Add (New ComboItem ("Minor Non-Comp", 20))
aComboBox.Items .Add (New ComboItem ("Satisfactory" , 9))

Regards,
Fergus

[Fergus Cooney]

Hi Dan,

I caught myself before it was too late, but I almost recommended that very
mistake!!

The idea is that you can reuse Coption the <variable> but you have to give
it a New ComboItem each time.

This central heating makes me thirsty, so thanks for the beer! We're in
the same timezone so I'll see you in the Dog and Crown in half an hour!! ;-)

Regards,
Fergus