Getting Named Color Names and values????

[SStory]

How can I get value pairs of named colors and the color they represent?

I want to easily get these colornames and then their associated color values
into a file so I can add to the list and offer this list in an owner drawn
listbox for the user to choose colors.

thanks,

Shane

[SStory]

Nevermind, I found out how to get these.

Below is a sample for anyone else who reads this and might not know..

there may be a better way but this will get the info in a file for me and
that is all I care about... and there may be more than 165 known colors but
I don't think so.
Dim c As Color
For i As Byte = 0 To 165
c = Color.FromKnownColor(i)
Debug.WriteLine(String.Format("{0} : {1},{2},{3}",
c.ToKnownColor.ToString(), c.R, c.G, c.B))
Next


"SStory" <Th*******@TAKEOUTTHISSPAMBUSTERsofthome.net> wrote in message
news:u%****************@TK2MSFTNGP12.phx.gbl...

How can I get value pairs of named colors and the color they represent?

I want to easily get these colornames and then their associated color values into a file so I can add to the list and offer this list in an owner drawn
listbox for the user to choose colors.

thanks,

Shane

[Herfried K. Wagner [MVP]]

* "SStory" <Th*******@TAKEOUTTHISSPAMBUSTERsofthome.net> scripsit:

How can I get value pairs of named colors and the color they represent?

I want to easily get these colornames and then their associated color values
into a file so I can add to the list and offer this list in an owner drawn
listbox for the user to choose colors.

\\\
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.ListBox1.DataSource = [Enum].GetNames(GetType(KnownColor))
End Sub

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
Me.ListBox1.BackColor = Color.FromKnownColor(DirectCast([Enum].Parse(GetType(KnownColor), CStr(ListBox1.SelectedItem)), KnownColor))
End Sub
///

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

[SStory]

Wow that is an awesome solution. I will have to try it.
I choose to write all of those to an XML file so that the user can add
his/her own colors to the list.

Shane

"Herfried K. Wagner [MVP]" <hi***************@gmx.at> wrote in message
news:2j*************@uni-berlin.de...

* "SStory" <Th*******@TAKEOUTTHISSPAMBUSTERsofthome.net> scripsit:

How can I get value pairs of named colors and the color they represent?

I want to easily get these colornames and then their associated color values into a file so I can add to the list and offer this list in an owner drawn listbox for the user to choose colors.
\\\
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MyBase.Load Me.ListBox1.DataSource = [Enum].GetNames(GetType(KnownColor))
End Sub

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged Me.ListBox1.BackColor = Color.FromKnownColor(DirectCast([Enum].Parse(GetType(KnownColor),
CStr(ListBox1.SelectedItem)), KnownColor)) End Sub
///

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

[SStory]

Could you tell me what this [Enum] is exactly?
What object does it belong to? Object?

I assume it is hidden?

Thanks,

Shane
"Herfried K. Wagner [MVP]" <hi***************@gmx.at> wrote in message
news:2j*************@uni-berlin.de...

* "SStory" <Th*******@TAKEOUTTHISSPAMBUSTERsofthome.net> scripsit:

How can I get value pairs of named colors and the color they represent?

I want to easily get these colornames and then their associated color values into a file so I can add to the list and offer this list in an owner drawn listbox for the user to choose colors.
\\\
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MyBase.Load Me.ListBox1.DataSource = [Enum].GetNames(GetType(KnownColor))
End Sub

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged Me.ListBox1.BackColor = Color.FromKnownColor(DirectCast([Enum].Parse(GetType(KnownColor),
CStr(ListBox1.SelectedItem)), KnownColor)) End Sub
///

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

[Herfried K. Wagner [MVP]]

* "SStory" <Th*******@TAKEOUTTHISSPAMBUSTERsofthome.net> scripsit:

Could you tell me what this [Enum] is exactly?
What object does it belong to? Object?
It's the 'Enum' class. 'Enum' is a keyword in VB.NET, so we have to
"escape" it with the square brackets.
I assume it is hidden?

No, it isn't ;-).

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

[SStory]

Cool! This is one of the greatest things I've learned lately. Will be
helpful in many ways.

Danke sehr gut,

Herfried

"Herfried K. Wagner [MVP]" <hi***************@gmx.at> wrote in message
news:2j*************@uni-berlin.de...

* "SStory" <Th*******@TAKEOUTTHISSPAMBUSTERsofthome.net> scripsit:

Could you tell me what this [Enum] is exactly?
What object does it belong to? Object?

It's the 'Enum' class. 'Enum' is a keyword in VB.NET, so we have to
"escape" it with the square brackets.

I assume it is hidden?

No, it isn't ;-).

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

[Armin Zingler]

"SStory" <Th*******@TAKEOUTTHISSPAMBUSTERsofthome.net> schrieb

Could you tell me what this [Enum] is exactly?
What object does it belong to? Object?

I assume it is hidden?

No, it's not hidden. It's a type in the System namespace in mscorlib.dll
(see object browser). The square brackets are there to distinguish between
the type and the VB.Net Enum keyword, like in

enum MyEnum
a
b
end enum
--
Armin

How to quote and why:
http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

[Herfried K. Wagner [MVP]]

* "SStory" <Th*******@TAKEOUTTHISSPAMBUSTERsofthome.net> scripsit:

Cool! This is one of the greatest things I've learned lately. Will be
helpful in many ways.
The square brackets are documented here:

<URL:http://msdn.microsoft.com/library/en-us/vbls7/html/vblrfVBSpec2_2.asp>
Danke sehr gut,

:-)

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>