Displaying a title, but using 2nd value from a drop-down menu

[Laphan]

Hi All

Sorry for the confusing subject, but I'm hoping that you will be able to
help.

In very basic terms I want to emulate a <SELECT> HTML box in VB.

All I want to do is display a title name in the drop-down list, but the
actual value I use would be something else.

For example, in HTML I would simply enter:

<OPTION VALUE="fred">Mr Fred Smith</OPTION>
<OPTION VALUE="bill">Mr Bill Smith</OPTION>
<OPTION VALUE="bob">Mr Bob Smith</OPTION>

And when the user selected one of the above display names I could then
simply take the value (eg, bill) and work with that.

In VB you only seem to be able to have 1 value for displaying and using.

Is there a way round this?

Rgds

Laphan

[Rick Rothstein]

> Sorry for the confusing subject, but I'm hoping that you will be able to

help.

In very basic terms I want to emulate a <SELECT> HTML box in VB.

All I want to do is display a title name in the drop-down list, but the
actual value I use would be something else.

For example, in HTML I would simply enter:

<OPTION VALUE="fred">Mr Fred Smith</OPTION>
<OPTION VALUE="bill">Mr Bill Smith</OPTION>
<OPTION VALUE="bob">Mr Bob Smith</OPTION>

And when the user selected one of the above display names I could then
simply take the value (eg, bill) and work with that.

In VB you only seem to be able to have 1 value for displaying and using.

Is there a way round this?

See if this gives you any ideas... start a new project and place a ComboBox
and a CommandButton on the form. Paste this code into the form's code window
and run. Drop down the list and click on a name. Watch what prints in your
Immediate Window when you click on the CommandButton.

Rick - MVP

Dim NickName As String
Dim Names(2) As String

Private Sub Form_Load()
Dim X As Long
Names(0) = "Mr. Frederick Smith\fred"
Names(1) = "Mr. William Smith\bill"
Names(2) = "Mr. Robert Smith\bob"
For X = 0 To 2
Combo1.AddItem Split(Names(X), "\")(0)
Next
Combo1.Text = "Select a name"
End Sub

Private Sub Combo1_Click()
NickName = Split(Names(Combo1.ListIndex), "\")(1)
End Sub

Private Sub Command1_Click()
Debug.Print NickName
End Sub