String issue

[DR00ME]

lstRGB.Items.Add(CStr(pixelColor.R) + " " + CStr(pixelColor.G) + " " + CStr(pixelColor.B))

As you can see I have added 3 separate values in the listbox.

Dim MyString As String

MyString = lstRGB.SelectedItem


lets say MyString is like "60 255 132" how do I split it in three parts ? one of them would be 60 second 255 and third 132... can you do it with split or substring ? it is 4am I cant think HELP!

 

[Bucky]

Yes, use the Split method. Then convert each color into an
integer and create a Color structure.

Dim MyColors() As String
MyColors = MyString.Split(" "c)  Split MyString by space characters

Dim red, green, blue As Integer
red = Convert.ToInt32(MyColors(0))
green = Convert.ToInt32(MyColors(1))
blue = Convert.ToInt32(MyColors(1))

Dim MyColor As Color = Color.FromArgb(red, green, blue)

 

[dynamic_sysop]

dim the string as an array , eg:

Dim MyString As String() = lstRGB.SelectedItem.Split(" ")
/// your values will be MyString(0) , MyString(1) and MyString(2)

Edit: grr beaten to the post

 

[DR00ME]

lol thx guys

 

[DR00ME]

now it works like this:

Dim MyArray() As String
Dim MyString As String

MyString = lstRGB.SelectedItem
MyArray = MyString.Split(" "c)

lblIndexSelect.BackColor = _
Color.FromArgb(CByte(MyArray(0)), CByte(MyArray(1)), CByte(MyArray(2)))


is there any difference between CByte and Convert.ToByte ?