Convert from color to brush 1

[bigfoot]

I'm working with brushes and I want the option to enter a color. If the program is expecting Brushes.Black, is there a way to give it Colors.Black?

Is there any function that does a conversion?

 

[Korach]

Why you don't use the color instead of the brush? If you want to fill something, you acn do it with the color.
I don't know a simple way to do it, maybe there is.
You can do it by reflection, but it is hard to get the type of the brushes class since you can't make an instance of it. I found a trickey way:

Imports System.Reflection

Dim t As Type = [Assembly].LoadWithPartialName("System.Drawing").GetType("System.Drawing.Brushes")
Dim b As Brush = t.GetProperty(Color.White.Name).GetValue(Nothing, Nothing)

This will create a solid brush with a white color.

 

[chrissie1]

Looks nice korach. Have a star.

Christiaan Baes
Belgium

If you want to get an answer read this FAQ faq796-2540
There's no such thing as a winnable war - Sting

 

[bigfoot]

I was able to do it this way, but thank you.

'Set up color and get the color number from column 6
Dim myColor As Color = GetVBColor(Str(myDataGrid(e.Row, 6)))

Dim MyBrush As New SolidBrush(myColor)

e.ForeBrush = MyBrush

GetVBColor is a function that I was very happily given here that convers from (old vb) colors to the .net version.

Private Function GetVBColor(ByVal myColor As String)
  Dim b As Integer = CInt(Int(myColor / 65536))
  Dim g As Integer = CInt(Int((myColor - b * 65536) / 256))
  Dim r As Integer = CInt(Int(myColor - b * 65536 - g * 256))
  Return Color.FromArgb(255, r, g, b)
End Function

Thanks for the help.