ListBox (Multi-Extended Selection Mode)

[Steven Smith]

I'm trying to display the contents of the
me.NamesListBox .SelectedItems property to a label on the
form. This works fine in single selection mode but
there's obviously something wrong with my syntax when
trying to call multiple items. the line in my code below
gives me the pre-compiler error along the lines of

value of type 'system.windows .form.textbox selected
object collection cannot be converted to string

///
Me.ResultLabel. Text = Me.NamesListBox .SelectedItems
///

any ideas guys, thanks in advance

Steve


///

Private Sub ExitButton_Clic k(ByVal sender As Object,
ByVal e As System.EventArg s) _
Handles ExitButton.Clic k
Me.Close()
End Sub

Private Sub MultiForm_Load( ByVal sender As Object,
ByVal e As System.EventArg s) _
Handles MyBase.Load
Me.NamesListBox .Items.Add("Ahm ad")
Me.NamesListBox .Items.Add("Jim ")
Me.NamesListBox .Items.Add("Deb bie")
Me.NamesListBox .Items.Add("Jea nne")
Me.NamesListBox .Items.Add("Bil l")
End Sub

Private Sub SingleButton_Cl ick(ByVal sender As
Object, ByVal e As System.EventArg s) _
Handles SingleButton.Cl ick

Me.ResultLabel. Text = Me.NamesListBox .SelectedItem

End Sub

Private Sub MultiButton_Cli ck(ByVal sender As Object,
ByVal e As System.EventArg s) _
Handles MultiButton.Cli ck

Me.ResultLabel. Text = ""
Me.ResultLabel. Text =
Me.NamesListBox .SelectedItems

///

[One Handed Man]

Firstly, you are getting the error because you did not specify .ToString()
on the end.

Secondly, this will not display anyting meaningfull, simply the
windows.forms.l istbox.selected itemscollection etc

If you want to display a messagebox of all the values concatenated. SubClass
this and override the toString() function and return the strings of all the
items in the collection.
;-D

HTH

--
Regards - One Handed Man

Author : Fish .NET & Keep .NET
=============== =============== ===========
This posting is provided "AS IS" with no warranties,
and confers no rights.
"Steven Smith" <St**********@e mailaccount.com > wrote in message
news:1c******** *************** *****@phx.gbl.. .

I'm trying to display the contents of the
me.NamesListBox .SelectedItems property to a label on the
form. This works fine in single selection mode but
there's obviously something wrong with my syntax when
trying to call multiple items. the line in my code below
gives me the pre-compiler error along the lines of

value of type 'system.windows .form.textbox selected
object collection cannot be converted to string

///
Me.ResultLabel. Text = Me.NamesListBox .SelectedItems
///

any ideas guys, thanks in advance

Steve


///

Private Sub ExitButton_Clic k(ByVal sender As Object,
ByVal e As System.EventArg s) _
Handles ExitButton.Clic k
Me.Close()
End Sub

Private Sub MultiForm_Load( ByVal sender As Object,
ByVal e As System.EventArg s) _
Handles MyBase.Load
Me.NamesListBox .Items.Add("Ahm ad")
Me.NamesListBox .Items.Add("Jim ")
Me.NamesListBox .Items.Add("Deb bie")
Me.NamesListBox .Items.Add("Jea nne")
Me.NamesListBox .Items.Add("Bil l")
End Sub

Private Sub SingleButton_Cl ick(ByVal sender As
Object, ByVal e As System.EventArg s) _
Handles SingleButton.Cl ick

Me.ResultLabel. Text = Me.NamesListBox .SelectedItem

End Sub

Private Sub MultiButton_Cli ck(ByVal sender As Object,
ByVal e As System.EventArg s) _
Handles MultiButton.Cli ck

Me.ResultLabel. Text = ""
Me.ResultLabel. Text =
Me.NamesListBox .SelectedItems

///

[Cor]

Hi Steve,

///
Me.ResultLabel. Text = Me.NamesListBox .SelectedItems
///

I d'nt know if the Option I give beneath is Strict the best but I think you
can go On with it.
\\\\
Dim i As Integer
Me.ResultLabel. Text = Nothing
For i = 0 To NamesListBox.Se lectedItems.Cou nt - 1
Me.ResultLabel. Text = Me.ResultLabel. Text &
NamesListBox.Se lectedItems(i). ToString & vbCrLf
Next
////
Success
Cor

[Steven Smith]

Thanks Cor that worked perfectly, I think thats what One
Handed Man was trying to explain I'm gonna go study it
through to find out how it works exactly, thanks again to
both of you for your help, keep up the good work

Regards, Steve

[Cor]

OK Steve ,
No he was not this is another Option,
Nice that you did reply.
Cor

[Fergus Cooney]

:-))

[Steven SMith]

-----Original Message-----
:-)) -----Original Message-----
:-))

Thanks for in depth analysis of Tic-Tac-Toe, mucho
gracias! on closer examination the first solution I
posted never worked as my error checking at the time
disabled the labels after click to prevent player from
overwriting other players marker, this was a cunning plan
however re-enabling the labels on ClearBoard.Clic k might
have helped. This leads me to believe that the original
do while...loop served the same functionality as the
later for...next, but I realise that there is a
difference between the two. The next tutorial for me is
a hangman game which I'm sure will throw up plenty new
string manipulation problems for me to chew over, will
continue to work on style to maximise legibility of my
code, thanks again, bye for now...
Regards, Steve

[Herfried K. Wagner [MVP]]

"Steven Smith" <St**********@e mailaccount.com > schrieb:

I'm trying to display the contents of the
me.NamesListBox .SelectedItems property to a label on the
form. This works fine in single selection mode but
there's obviously something wrong with my syntax when
trying to call multiple items. the line in my code below
gives me the pre-compiler error along the lines of

value of type 'system.windows .form.textbox selected
object collection cannot be converted to string

///
Me.ResultLabel. Text = Me.NamesListBox .SelectedItems

\\\
Dim o As Object
Dim sb As System.Text.Str ingBuilder = New System.Text.Str ingBuilder()
For Each o In Me.ListBox1.Sel ectedItems

' Change this depending on the type of your objects.
sb.Append(Direc tCast(o, String))

sb.Append(" ")
Next o
MsgBox(sb.ToStr ing())
///

--
Herfried K. Wagner
MVP · VB Classic, VB.NET
http://www.mvps.org/dotnet

[Steven Smith]

-----Original Message-----
"Steven Smith" <St**********@e mailaccount.com > schrieb: \\\
Dim o As Object
Dim sb As System.Text.Str ingBuilder = New System.Text.Str ingBuilder()For Each o In Me.ListBox1.Sel ectedItems

' Change this depending on the type of your objects.
sb.Append(Direc tCast(o, String))

sb.Append(" ")
Next o
MsgBox(sb.ToSt ring())
///

--
Herfried K. Wagner
MVP · VB Classic, VB.NET
http://www.mvps.org/dotnet
.
Hi Herfried thanks for your response, I think this

solution is slightly beyond my ability just now as
DirectCast isn't in my vb vocabulary yet, although it is
always helpful to see there's more than one way to skin a
cat :) I'll try and implement the code in another project
and I'll see how I get on.

Thanks & appreciation for your help

Regards Steve

[Steven Smith]

-----Original Message-----
Firstly, you are getting the error because you did not specify .ToString()on the end.
If you want to display a messagebox of all the values concatenated. SubClassthis and override the toString() function and return the strings of all theitems in the collection.

///
Public Overrides Function toString() As String

Return text

End Function
///

now I see the light..!