Getting items from combobox into an array, then to a string

Kevin Davis

Can someone please tell me what I'm doing wrong here?

I'm trying to place all the items from a combobox into an array, but it doesn't seem to be working for me.
My code:

Dim name as string
Dim list As New ArrayList
For i = 0 To form.cbSMTPAccounts.Items.Count - 1
name = form.cbSMTPAccounts.Items(i).text.ToString
list.Add(name)

I keep getting "Public member 'text' on type 'String' " error,

Incidentally, Once this array is working properly, I would like to convert it to a single string if possible...if that makes any sense

kevin

5 Replies

Know the answer? Post it — somebody with the same question will find it here.

Vulpes15y ago
Accepted answer
You must be using an earlier version of VB than me.

Try this instead for the last line:

Dim combined As String = String.Join(", ", CType(list.ToArray(GetType(String)), String()))
+1
Vulpes15y ago
That's strange - I'm using VS 2010 as well, albeit the humble Express Edition :)

Anyway, to get the string back into the combobox you could do:

Dim items() As String = combined.Split(New String() {", "}, StringSplitOptions.None)
form.cbSMTPAccounts.DataSource = items

or, if you'd prefer to leave the combobox unbound, just replace the second line with:

For Each item As String In items
form.cbSMTPAccounts.Items.Add(item)
Next

As a further alternative, I think this one should work as well:

form.cbSMTPAccounts.Items.AddRange(items)

0
Kevin Davis15y ago
I'm using (and I use that term loosely) VS 2010 Ultimate, and the last suggestion worked perfectly! Thank you once again Vulpes.....I'm gonna have to start paying you....lol

Side note: How could I get that "string" back into the combobox?
0
Kevin Davis15y ago
I tried that, and it works up until the string conversion, then it states this error "Unable to cast object of type 'System.Object[]' to type 'System.String[]'."
0
Vulpes15y ago
Try this:

Dim list As New ArrayList
For Each item As Object In form.cbSMTPAccounts.Items
list.Add(item.ToString)
Next

Dim combined As String = String.Join(", ", list.ToArray)
0