exception coulée invalide, le stockage de la valeur zone de texte entre parenthèses

Question

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

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

Je reçois un InvalidCastException

Comment insérer la valeur de TextBox1.Text dans ces crochets dans vb.net?

Answer 1

Si vous utilisez Visual Studio 2008 essayez ce qui suit

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

Voici une version pour 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)));