This has been updated to include VB listings of the RGBHSL utility and the test programs.
摘自网络:http://www.bobpowell.net/RGBHSB.htm
The classic RGB colour space used in GDI+ is excellent for choosing or defining a specific colour as a mixture of primary colour and intensity values but what happens if you want to take a particular colour and make it a bit lighter or a bit darker or change its saturation. For this you need to be able to use the HSL (Hue, Saturation and Luminance) colour space.
The .NET framework actually provides RGB-HSL conversion but for some reason, the conversion of HSL to RGB is not provided as a public method. The Color class has three methods, GetHue, GetSaturation and GetBrightness that provide the basic components of the HSL (or HSB) colour space. The conversion of HSL to RGB is a well known algorithm that you can find in numerous places on the web. Oddly enough, down in the bowels of the ControlPaint class, RGB to HSL is employed when you use the ControlPaint.Light(…) or ControlPaint.DarkDark(…) methods but also unfortunately the scaling of the Light, Dark and DarkDark settings are, to say the least, brutal and offer no finesse.
A specific use for RGB-HSL conversions I have used in the past, is to provide colours that enhance objects drawn in a psuedo-3D or isometric style. In such a drawing, a cube having a specific colour, say red, may be shown with a lighter red on top to simulate a shine on the object and a darker colour on one side to simulate a shadow. Figure1 shows two such cubes with and without shading yet still using red as the basic colour.
Figure 1
In addition to making a chosen colour lighter or darker, you may wish to choose a range of colour values that all have a similar brightness. Not an easy task where RGB is concerned but trivial using the HSL colour space. Similarly, you may wish to choose random colours but ensure that they have a uniform level of saturation to ensure bright, non-pastel colours for ease of visibility. Once again, a task eminently possible if using HSL colour definitions.
If you're interested in further reading on the differences between colour spaces, this link will take you to an excellent article on the Apple site which explains them nicely.
To accompany this FAQ entry I have provided the source code shown in listing 1. It provides an RGB-HSL and HSL-RGB conversion plus a few methods that assist in setting or modifying a brightness.
Listing 1:
C#.
/* This tool is part of the xRay Toolkit and is provided free of charge by Bob Powell.
* This code is not guaranteed to be free from defects or fit for merchantability in any way.
* By using this tool in your own programs you agree to hold Robert W. Powell free from all
* damages direct or incidental that arise from such use.
* You may use this code free of charge in your own projects on condition that you place the
* following paragraph (enclosed in quotes below) in your applications help or about dialog.
* "Portions of this code provided by Bob Powell. http://www.bobpowell.net"
*/
using System;
using System.Drawing;
namespace xRay.Toolkit.Utilities
{
public class RGBHSL
{
public class HSL
{
public HSL()
{
_h=0;
_s=0;
_l=0;
}
double _h;
double _s;
double _l;
public double H
{
get{return _h;}
set
{
_h=value;
_h=_h>1 ? 1 : _h<0 ? 0 : _h;
}
}
public double S
{
get{return _s;}
set
{
_s=value;
_s=_s>1 ? 1 : _s<0 ? 0 : _s;
}
}
public double L
{
get{return _l;}
set
{
_l=value;
_l=_l>1 ? 1 : _l<0 ? 0 : _l;
}
}
}
public RGBHSL()
{
}
/// <summary>
/// Sets the absolute brightness of a colour
/// </summary>
/// <param name="c">Original colour</param>
/// <param name="brightness">The luminance level to impose</param>
/// <returns>an adjusted colour</returns>
public static Color SetBrightness(Color c, double brightness)
{
HSL hsl = RGB_to_HSL(c);
hsl.L=brightness;
return HSL_to_RGB(hsl);
}
/// <summary>
/// Modifies an existing brightness level
/// </summary>
/// <remarks>
/// To reduce brightness use a number smaller than 1. To increase brightness use a number larger tnan 1
/// </remarks>
/// <param name="c">The original colour</param>
/// <param name="brightness">The luminance delta</param>
/// <returns>An adjusted colour</returns>
public static Color ModifyBrightness(Color c, double brightness)
{
HSL hsl = RGB_to_HSL(c);
hsl.L*=brightness;
return HSL_to_RGB(hsl);
}
/// <summary>
/// Sets the absolute saturation level
/// </summary>
/// <remarks>Accepted values 0-1</remarks>
/// <param name="c">An original colour</param>
/// <param name="Saturation">The saturation value to impose</param>
/// <returns>An adjusted colour</returns>
public static Color SetSaturation(Color c, double Saturation)
{
HSL hsl = RGB_to_HSL(c);
hsl.S=Saturation;
return HSL_to_RGB(hsl);
}
/// <summary>
/// Modifies an existing Saturation level
/// </summary>
/// <remarks>
/// To reduce Saturation use a number smaller than 1. To increase Saturation use a number larger tnan 1
/// </remarks>
/// <param name="c">The original colour</param>
/// <param name="Saturation">The saturation delta</param>
/// <returns>An adjusted colour</returns>
public static Color ModifySaturation(Color c, double Saturation)
{
HSL hsl = RGB_to_HSL(c);
hsl.S*=Saturation;
return HSL_to_RGB(hsl);
}
/// <summary>
/// Sets the absolute Hue level
/// </summary>
/// <remarks>Accepted values 0-1</remarks>
/// <param name="c">An original colour</param>
/// <param name="Hue">The Hue value to impose</param>
/// <returns>An adjusted colour</returns>
public static Color SetHue(Color c, double Hue)
{
HSL hsl = RGB_to_HSL(c);
hsl.H=Hue;
return HSL_to_RGB(hsl);
}
/// <summary>
/// Modifies an existing Hue level
/// </summary>
/// <remarks>
/// To reduce Hue use a number smaller than 1. To increase Hue use a number larger tnan 1
/// </remarks>
/// <param name="c">The original colour</param>
/// <param name="Hue">The Hue delta</param>
/// <returns>An adjusted colour</returns>
public static Color ModifyHue(Color c, double Hue)
{
HSL hsl = RGB_to_HSL(c);
hsl.H*=Hue;
return HSL_to_RGB(hsl);
}
/// <summary>
/// Converts a colour from HSL to RGB
/// </summary>
/// <remarks>Adapted from the algoritm in Foley and Van-Dam</remarks>
/// <param name="hsl">The HSL value</param>
/// <returns>A Color structure containing the equivalent RGB values</returns>
public static Color HSL_to_RGB(HSL hsl)
{
double r=0,g=0,b=0;
double temp1,temp2;
if(hsl.L==0)
{
r=g=b=0;
}
else
{
if(hsl.S==0)
{
r=g=b=hsl.L;
}
else
{
temp2 = ((hsl.L<=0.5) ? hsl.L*(1.0+hsl.S) : hsl.L+hsl.S-(hsl.L*hsl.S));
temp1 = 2.0*hsl.L-temp2;
double[] t3=new double[]{hsl.H+1.0/3.0,hsl.H,hsl.H-1.0/3.0};
double[] clr=new double[]{0,0,0};
for(int i=0;i<3;i++)
{
if(t3[i]<0)
t3[i]+=1.0;
if(t3[i]>1)
t3[i]-=1.0;
if(6.0*t3[i] < 1.0)
clr[i]=temp1+(temp2-temp1)*t3[i]*6.0;
else if(2.0*t3[i] < 1.0)
clr[i]=temp2;
else if(3.0*t3[i] < 2.0)
clr[i]=(temp1+(temp2-temp1)*((2.0/3.0)-t3[i])*6.0);
else
clr[i]=temp1;
}
r=clr[0];
g=clr[1];
b=clr[2];
}
}
return Color.FromArgb((int)(255*r),(int)(255*g),(int)(255*b));
}
//
/// <summary>
/// Converts RGB to HSL
/// </summary>
/// <remarks>Takes advantage of whats already built in to .NET by using the Color.GetHue, Color.GetSaturation and Color.GetBrightness methods</remarks>
/// <param name="c">A Color to convert</param>
/// <returns>An HSL value</returns>
public static HSL RGB_to_HSL (Color c)
{
HSL hsl = new HSL();
hsl.H=c.GetHue()/360.0; // we store hue as 0-1 as opposed to 0-360
hsl.L=c.GetBrightness();
hsl.S=c.GetSaturation();
return hsl;
}
}
}
VB
' This tool is part of the xRay Toolkit and is provided free of charge by Bob Powell.
' This code is not guaranteed to be free from defects or fit for mechantability in any way.
' By using this tool in your own programs you agree to hold Robert W. Powell free from all
' damages direct or incidental that arise from such use.
' You may use this code free of charge in your own projects on condition that you place the
' following paragraph (enclosed in quotes below) in your applications help or about dialog.
' "Portions of this code provided by Bob Powell. Http://www.bobpowell.net"
Imports System
Imports System.Drawing
Namespace xRay.Toolkit.Utilities
Public Class RGBHSL
Public Class HSL
Public Sub New()
_h = 0
_s = 0
_l = 0
End Sub 'New
Private _h As Double
Private _s As Double
Private _l As Double
Public Property H() As Double
Get
Return _h
End Get
Set
_h = value
_h = IIf(_h > 1, 1, IIf(_h < 0, 0, _h))
End Set
End Property
Public Property S() As Double
Get
Return _s
End Get
Set
_s = value
_s = IIf(_s > 1, 1, IIf(_s < 0, 0, _s))
End Set
End Property
Public Property L() As Double
Get
Return _l
End Get
Set
_l = value
_l = IIf(_l > 1, 1, IIf(_l < 0, 0, _l))
End Set
End Property
End Class 'HSL
Public Sub New()
End Sub 'New
'/ <summary>
'/ Sets the absolute brightness of a colour
'/ </summary>
'/ <param name="c">Original colour</param>
'/ <param name="brightness">The luminance level to impose</param>
'/ <returns>an adjusted colour</returns>
Public Shared Function SetBrightness(c As Color, brightness As Double) As Color
Dim hsl As HSL = RGB_to_HSL(c)
hsl.L = brightness
Return HSL_to_RGB(hsl)
End Function 'SetBrightness
'/ <summary>
'/ Modifies an existing brightness level
'/ </summary>
'/ <remarks>
'/ To reduce brightness use a number smaller than 1. To increase brightness use a number larger tnan 1
'/ </remarks>
'/ <param name="c">The original colour</param>
'/ <param name="brightness">The luminance delta</param>
'/ <returns>An adjusted colour</returns>
Public Shared Function ModifyBrightness(c As Color, brightness As Double) As Color
Dim hsl As HSL = RGB_to_HSL(c)
hsl.L *= brightness
Return HSL_to_RGB(hsl)
End Function 'ModifyBrightness
'/ <summary>
'/ Sets the absolute saturation level
'/ </summary>
'/ <remarks>Accepted values 0-1</remarks>
'/ <param name="c">An original colour</param>
'/ <param name="Saturation">The saturation value to impose</param>
'/ <returns>An adjusted colour</returns>
Public Shared Function SetSaturation(c As Color, Saturation As Double) As Color
Dim hsl As HSL = RGB_to_HSL(c)
hsl.S = Saturation
Return HSL_to_RGB(hsl)
End Function 'SetSaturation
'/ <summary>
'/ Modifies an existing Saturation level
'/ </summary>
'/ <remarks>
'/ To reduce Saturation use a number smaller than 1. To increase Saturation use a number larger tnan 1
'/ </remarks>
'/ <param name="c">The original colour</param>
'/ <param name="Saturation">The saturation delta</param>
'/ <returns>An adjusted colour</returns>
Public Shared Function ModifySaturation(c As Color, Saturation As Double) As Color
Dim hsl As HSL = RGB_to_HSL(c)
hsl.S *= Saturation
Return HSL_to_RGB(hsl)
End Function 'ModifySaturation
'/ <summary>
'/ Sets the absolute Hue level
'/ </summary>
'/ <remarks>Accepted values 0-1</remarks>
'/ <param name="c">An original colour</param>
'/ <param name="Hue">The Hue value to impose</param>
'/ <returns>An adjusted colour</returns>
Public Shared Function SetHue(c As Color, Hue As Double) As Color
Dim hsl As HSL = RGB_to_HSL(c)
hsl.H = Hue
Return HSL_to_RGB(hsl)
End Function 'SetHue
'/ <summary>
'/ Modifies an existing Hue level
'/ </summary>
'/ <remarks>
'/ To reduce Hue use a number smaller than 1. To increase Hue use a number larger tnan 1
'/ </remarks>
'/ <param name="c">The original colour</param>
'/ <param name="Hue">The Hue delta</param>
'/ <returns>An adjusted colour</returns>
Public Shared Function ModifyHue(c As Color, Hue As Double) As Color
Dim hsl As HSL = RGB_to_HSL(c)
hsl.H *= Hue
Return HSL_to_RGB(hsl)
End Function 'ModifyHue
'/ <summary>
'/ Converts a colour from HSL to RGB
'/ </summary>
'/ <remarks>Adapted from the algoritm in Foley and Van-Dam</remarks>
'/ <param name="hsl">The HSL value</param>
'/ <returns>A Color structure containing the equivalent RGB values</returns>
Public Shared Function HSL_to_RGB(hsl As HSL) As Color
Dim r As Double = 0
Dim g As Double = 0
Dim b As Double = 0
Dim temp1, temp2 As Double
If hsl.L = 0 Then
r = 0
g = 0
b = 0
Else
If hsl.S = 0 Then
r = hsl.L
g = hsl.L
b = hsl.L
Else
temp2 = IIf(hsl.L <= 0.5, hsl.L * (1.0 + hsl.S), hsl.L + hsl.S - hsl.L * hsl.S)
temp1 = 2.0 * hsl.L - temp2
Dim t3() As Double = {hsl.H + 1.0 / 3.0, hsl.H, hsl.H - 1.0 / 3.0}
Dim clr() As Double = {0, 0, 0}
Dim i As Integer
For i = 0 To 2
If t3(i) < 0 Then
t3(i) += 1.0
End If
If t3(i) > 1 Then
t3(i) -= 1.0
End If
If 6.0 * t3(i) < 1.0 Then
clr(i) = temp1 + (temp2 - temp1) * t3(i) * 6.0
ElseIf 2.0 * t3(i) < 1.0 Then
clr(i) = temp2
ElseIf 3.0 * t3(i) < 2.0 Then
clr(i) = temp1 + (temp2 - temp1) * (2.0 / 3.0 - t3(i)) * 6.0
Else
clr(i) = temp1
End If
Next i
r = clr(0)
g = clr(1)
b = clr(2)
End If
End If
Return Color.FromArgb(CInt(255 * r), CInt(255 * g), CInt(255 * b))
End Function 'HSL_to_RGB
'
'/ <summary>
'/ Converts RGB to HSL
'/ </summary>
'/ <remarks>Takes advantage of whats already built in to .NET by using the Color.GetHue, Color.GetSaturation and Color.GetBrightness methods</remarks>
'/ <param name="c">A Color to convert</param>
'/ <returns>An HSL value</returns>
Public Shared Function RGB_to_HSL(c As Color) As HSL
Dim hsl As New HSL()
hsl.H = c.GetHue() / 360.0 ' we store hue as 0-1 as opposed to 0-360
hsl.L = c.GetBrightness()
hsl.S = c.GetSaturation()
Return hsl
End Function 'RGB_to_HSL
End Class 'RGBHSL
End Namespace 'xRay.Toolkit.Utilities
Example using the RGBHSL class to modify brightness
This example shows how colours may be modified for brightness by simply setting their luminance levels. The application below uses the RGBHSL class to display a palette of colours taken from the seven classic colours of the rainbow. Figure 2 shows the program in action.
Figure 2
Listing 2 is the complete listing for this test application.
Listing 2.
C#
using System;
using System.Drawing;
using System.Collections;
using System.ComponentModel;
using System.Windows.Forms;
using System.Data;
using xRay.Toolkit.Utilities;
namespace rgbhsltest
{
/// <summary>
/// Summary description for Form1.
/// </summary>
public class Form1 : System.Windows.Forms.Form
{
/// <summary>
/// Required designer variable.
/// </summary>
private System.ComponentModel.Container components = null;
public Form1()
{
//
// Required for Windows Form Designer support
//
InitializeComponent();
SetStyle(ControlStyles.ResizeRedraw,true);
}
/// <summary>
/// Clean up any resources being used.
/// </summary>
protected override void Dispose( bool disposing )
{
if( disposing )
{
if (components != null)
{
components.Dispose();
}
}
base.Dispose( disposing );
}
#region Windows Form Designer generated code
/// <summary>
/// Required method for Designer support - do not modify
/// the contents of this method with the code editor.
/// </summary>
private void InitializeComponent()
{
//
// Form1
//
this.AutoScaleBaseSize = new System.Drawing.Size(5, 13);
this.BackColor = System.Drawing.Color.White;
this.ClientSize = new System.Drawing.Size(600, 349);
this.Name = "Form1";
this.Text = "Form1";
this.Paint += new System.Windows.Forms.PaintEventHandler(this.Form1_Paint);
}
#endregion
/// <summary>
/// The main entry point for the application.
/// </summary>
[STAThread]
static void Main()
{
Application.Run(new Form1());
}
private void Form1_Paint(object sender, System.Windows.Forms.PaintEventArgs e)
{
Color[] rainbow=new Color[]{Color.Red,Color.Orange,Color.Yellow,Color.Green,Color.Blue,Color.Indigo,Color.Violet};
int n=0;
foreach(Color c in rainbow)
{
for(double b=0;b<=1;b+=0.1)
{
SolidBrush br=new SolidBrush(RGBHSL.SetBrightness(c,b));
e.Graphics.FillRectangle(br, (float)(this.ClientSize.Width*b), (float)(this.ClientSize.Height/7*n), (float)(this.ClientSize.Width/10), (float)(this.ClientSize.Height/6));
br.Dispose();
}
n++;
}
}
}
}
VB.
Imports System
Imports System.Drawing
Imports System.Collections
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Data
Imports xRay.Toolkit.Utilities
Namespace rgbhsltest
'/ <summary>
'/ Summary description for Form1.
'/ </summary>
Public Class Form1
Inherits System.Windows.Forms.Form
'/ <summary>
'/ Required designer variable.
'/ </summary>
Private components As System.ComponentModel.Container = Nothing
Public Sub New()
'
' Required for Windows Form Designer support
'
InitializeComponent()
SetStyle(ControlStyles.ResizeRedraw, True)
End Sub 'New
'/ <summary>
'/ Clean up any resources being used.
'/ </summary>
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub 'Dispose
#Region "Windows Form Designer generated code"
'/ <summary>
'/ Required method for Designer support - do not modify
'/ the contents of this method with the code editor.
'/ </summary>
Private Sub InitializeComponent()
'
' Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(600, 349)
Me.Name = "Form1"
Me.Text = "Form1"
End Sub 'InitializeComponent
#End Region
'/ <summary>
'/ The main entry point for the application.
'/ </summary>
<STAThread()> _
Shared Sub Main()
Application.Run(New Form1)
End Sub 'Main
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
Dim rainbow() As Color = {Color.Red, Color.Orange, Color.Yellow, Color.Green, Color.Blue, Color.Indigo, Color.Violet}
Dim n As Integer = 0
Dim c As Color
For Each c In rainbow
Dim b As Double
For b = 0 To 1 Step 0.1
Dim br As New SolidBrush(RGBHSL.SetBrightness(c, b))
e.Graphics.FillRectangle(br, CSng(Me.ClientSize.Width * b), CSng(Me.ClientSize.Height / 7 * n), CSng(Me.ClientSize.Width / 10), CSng(Me.ClientSize.Height / 6))
br.Dispose()
Next b
n += 1
Next c
End Sub 'Form1_Paint
End Class 'Form1
End Namespace 'rgbhsltest
Example using the RGBHSL class to force brightness and saturation
This example creates a set of random colours and then enforces a particular saturation and brightness. This tends to maintain the visual strength of colours so that when juxtaposed, one colour does not dominate the others and draw the eye to a particular shade. This is particularly useful in graphing applications where you want the visual representation of the data to be evenly balanced. Figure 3 shows 100 randomly coloured tiles that have all been forced to a brightness of 0.6 (60%) and saturation of 1 (100%).
Figure 3.
Listing 3 shows the application that produced the effect.
C#
using System;
using System.Drawing;
using System.Collections;
using System.ComponentModel;
using System.Windows.Forms;
using System.Data;
using xRay.Toolkit.Utilities;
namespace rgbhlstest2
{
/// <summary>
/// Summary description for Form1.
/// </summary>
public class Form1 : System.Windows.Forms.Form
{
/// <summary>
/// Required designer variable.
/// </summary>
private System.ComponentModel.Container components = null;
public Form1()
{
//
// Required for Windows Form Designer support
//
InitializeComponent();
SetStyle(ControlStyles.ResizeRedraw,true);
}
/// <summary>
/// Clean up any resources being used.
/// </summary>
protected override void Dispose( bool disposing )
{
if( disposing )
{
if (components != null)
{
components.Dispose();
}
}
base.Dispose( disposing );
}
#region Windows Form Designer generated code
/// <summary>
/// Required method for Designer support - do not modify
/// the contents of this method with the code editor.
/// </summary>
private void InitializeComponent()
{
//
// Form1
//
this.AutoScaleBaseSize = new System.Drawing.Size(5, 13);
this.BackColor = System.Drawing.Color.White;
this.ClientSize = new System.Drawing.Size(480, 285);
this.Name = "Form1";
this.Text = "Form1";
this.Paint += new System.Windows.Forms.PaintEventHandler(this.Form1_Paint);
}
#endregion
/// <summary>
/// The main entry point for the application.
/// </summary>
[STAThread]
static void Main()
{
Application.Run(new Form1());
}
private void Form1_Paint(object sender, System.Windows.Forms.PaintEventArgs e)
{
//Creates random colours that all have the same brightness and saturation.
Random r=new Random(1); // although random, we want the randomness to be predictable for this example
for(int y=0;y<10;y++)
{
for(int x=0;x<10;x++)
{
Color rcolor=Color.FromArgb(r.Next(255),r.Next(255),r.Next(255));
rcolor=RGBHSL.SetBrightness(rcolor,0.6);
rcolor=RGBHSL.SetSaturation(rcolor,1);
SolidBrush b=new SolidBrush(rcolor);
e.Graphics.FillRectangle(b,x*this.ClientSize.Width/10,y*this.ClientSize.Height/10,this.ClientSize.Width/10,this.ClientSize.Height/10);
b.Dispose();
}
}
}
}
}
VB
Imports System
Imports System.Drawing
Imports System.Collections
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Data
Imports xRay.Toolkit.Utilities
Namespace rgbhlstest2
'/ <summary>
'/ Summary description for Form1.
'/ </summary>
Public Class Form1
Inherits System.Windows.Forms.Form
'/ <summary>
'/ Required designer variable.
'/ </summary>
Private components As System.ComponentModel.Container = Nothing
Public Sub New()
'
' Required for Windows Form Designer support
'
InitializeComponent()
SetStyle(ControlStyles.ResizeRedraw, True)
End Sub 'New
'/ <summary>
'/ Clean up any resources being used.
'/ </summary>
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub 'Dispose
#Region "Windows Form Designer generated code"
'/ <summary>
'/ Required method for Designer support - do not modify
'/ the contents of this method with the code editor.
'/ </summary>
Private Sub InitializeComponent()
'
' Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(480, 285)
Me.Name = "Form1"
Me.Text = "Form1"
End Sub 'InitializeComponent
#End Region
'/ <summary>
'/ The main entry point for the application.
'/ </summary>
<STAThread()> _
Shared Sub Main()
Application.Run(New Form1)
End Sub 'Main
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
'Creates random colours that all have the same brightness and saturation.
Dim r As New Random(1) ' although random, we want the randomness to be predictable for this example
Dim y As Integer
For y = 0 To 9
Dim x As Integer
For x = 0 To 9
Dim rcolor As Color = Color.FromArgb(r.Next(255), r.Next(255), r.Next(255))
rcolor = RGBHSL.SetBrightness(rcolor, 0.6)
rcolor = RGBHSL.SetSaturation(rcolor, 1)
Dim b As New SolidBrush(rcolor)
e.Graphics.FillRectangle(b, CSng(x * Me.ClientSize.Width / 10), CSng(y * Me.ClientSize.Height / 10), CSng(Me.ClientSize.Width / 10), CSng(Me.ClientSize.Height / 10))
b.Dispose()
Next x
Next y
End Sub 'Form1_Paint
End Class 'Form1
End Namespace 'rgbhlstest2