Listbox and colors

[UCM]

Ive been trying to modify that code to allow me to get the names of all the known colors...

so far, no luck -_-

any ideas?

    Dim ff2 As String
    Dim ifc1 As System.Drawing.KnownColor

    For Each ff2 In ifc1
      Dim zz = ComboBox3.Items.Add(ff2)
      If ff.Name = "Black" Then ComboBox3.SelectedIndex = zz
    Next

 

[Volte]

I havent tested this yet, but you might be able to get all the fields
in the KnownColor type to get them.

Dim col As Reflection.FieldInfo

For Each col In GetType(KnownColor).GetFields
    ListBox1.Items.Add(col.Name)
Next

 

[UCM]

niiice, VolteFace...

it got the name of every property including the color names

hmmm... how do we get it to refrain from pulling in the non-color properties...

So far this is the closest Ive come:

Dim col As Reflection.FieldInfo

For Each col In GetType(KnownColor).GetFields
    If col.MemberType.GetTypeCode = TypeCode.Int32 Then
      ComboBox3.Items.Add(col.Name)
    End If
Next

 

[Volte]

What non-color fields do you mean? The only non-color field I can see
is value__ and that is easily removed.

However, I believe the correct way to filter them would be this:

If col.FieldType Is GetType(Drawing.KnownColor) Then

 

[Volte]

Heres another, possibly better way:

Dim cols() As String

cols = [Enum].GetNames(GetType(KnownColor))
ListBox1.Items.AddRange(cols)

 

[UCM]

Sweet!!

yup, your better way does work best... GetType... Think Ill do some additional research on that


thanx again, VolteFace