Color Chart code which enumerates all the names of the .NET "Color Structure"

imRahulSoni

4 Feb 2006 4:11 AM

Comments 1

It often becomes difficult to remember the color names in .NET. Now, if you have a datagrid or any other control and looking for appropriate colors, this code will help you to create a small page which will show you all the colors in one page, along with their names. It uses .NET reflection to get names of all the Color Names in the .NET Color structure.

Here is what the output looks like...

Let's create a new web page in a VB.NET Web project called ColorChart and delete everything in the code behind. Then, paste the following code and run the project with ColorChart as the start page.

Imports System.Reflection
'
Public Class ColorChart
    Inherits System.Web.UI.Page
    '
#Region " Web Form Designer Generated Code "
    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
    End Sub
    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub
#End Region
    '
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '
        'Put user code to initialize the page here
        Response.Write("<Table width='100%' border=1 cellspacing=0 cellpadding=0>")
        Response.Write("<TR bgcolor='gray'><TD width='16%'><B>Color Name</TD><TD width='16%'>" & _
        "<B>Color</TD><TD width='16%'><B>Color Name</TD><TD width='16%'><B>Color</TD>" & _
        "<TD width='16%'><B>Color Name</TD><TD width='16%'><B>Color</TD></TR>")
        '
        'This is because we want to get the assembly's information
        Dim x As Color
        Dim strType As Type = x.GetType()
        Dim arrMemberInfo() As MemberInfo = strType.GetProperties
        Dim myMemberInfo As MemberInfo
        'Lets Enumerate the colors now in three columns
        Dim i As Integer = 0
        Dim Remainder As Integer = 0
        For Each myMemberInfo In arrMemberInfo
            Remainder = i Mod 3
            If Remainder = 0 Then
                Response.Write("<TR>")
            End If
            Response.Write("<TD>" + myMemberInfo.Name + "</TD>")
            Response.Write("<TD bgcolor='" + myMemberInfo.Name + _
            "' borderColor='black' borderColorLight='black' borderColorDark='black'></TD>")
            '
            If Remainder = 2 Then
                Response.Write("</TR>")
            End If
            i += 1
            If myMemberInfo.Name = "YellowGreen" Then Exit For
        Next myMemberInfo
        Response.Write("</Table>")
    End Sub
End Class