invalid cast exception, storing textbox value in brackets

Question

textbox1.text = "6916092, 15195440, 16107657, 1836924, 3758726, 12566463, 7526079, 7405793, 6945974, 241502, 2296476, 5130294, 3102017, 7324121, 14993507"

ColorDialog1.CustomColors = New Integer() {TextBox1.Text}

i am getting an InvalidCastException

how do i insert the value of textbox1.text into those brackets in vb.net?

Answer 1

If you're using Visual Studio 2008 try the following

Dim numberStrings = TextBox1.Text.Split(","c).Select(Function(x) x.Trim()))
ColorDialog1.CustomColors = numberStrings.Select(Function(x) CInt(x)).ToArray()

Here's a version for 2005

Dim list as New List(Of String)(TextBox1.Text.Split(","c)
Dim numbers as New List(Of Integer)
For i as Integer = 0 to list.Count - 1
  list(i) = list(i).Trim()
  numbers.Add(CInt(list(i))
Next
ColorDialag1.CustomColors = numbers.ToArray()

Answer 2

string s = "1,2,3,4";
int[] n = Array.ConvertAll(s.Split(','), (item => Convert.ToInt32(item)));