text

[donald]

Hi there,

I have a text box on an outlook form which as text like this inside it
"000004, 000028, 000029, 000063, 000064, 000073". What I want to do is
when I double click on a number it to display an msgbox with that
number in and a little more text. I have got this:

Sub txtCases_Click()
msgbox "test"
End Sub

But it doesn't do any thing at all I all so want it to only display the
number that is highlighted.

I would love any help

Thanks

Donald

 

[Wolfram Jahn]

I have a text box on an outlook form which as text like this inside it
"000004, 000028, 000029, 000063, 000064, 000073". What I want to do is
when I double click on a number it to display an msgbox with that
number in and a little more text. I have got this:

Sub txtCases_Click()
msgbox "test"
End Sub

Sounds like an GUI-example for a "Choosing the wrong control"-problem.

I would recommend to split the value and fill a combobox or listbox.
Then you will get much easier to your clicks.

e.g.

....
nrs = "000004, 000028, 000029, 000063, 000064, 000073"
for each n in split(nrs,", ")
combobox1.additem n
next ' n
....

sub combobox1_click
msgbox combobox1.list(combobox1.listindex)
end sub


Wolfram