ازاي احط صور في الكومبو بوكس؟؟؟

Public Class Form1

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

For i As Integer = 1 To ComboBox1.SelectedItem

Me.BackColor = Color.FromKnownColor(ComboBox1.SelectedItem)

Next

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

' Retreive Known Colors
Dim kColor As KnownColor
For kColor = KnownColor.AliceBlue To KnownColor.YellowGreen

ComboBox1.Items.Add(kColor)

Next

ComboBox1.SelectedIndex = 1
End Sub

End Class

Public Class ColorsCombo

Inherits ComboBox

Private bHideText As Boolean
Private blackBrush As SolidBrush
Private whiteBrush As SolidBrush

''' <summary>
''' Get the selected color from the combo box
''' </summary>
Public Property SelectedColor() As Color
Get
Return Me.BackColor
End Get
Set(ByVal value As Color)
Me.BackColor = value

End Set

End Property

Public Sub New()

blackBrush = New SolidBrush(Color.Black)
whiteBrush = New SolidBrush(Color.White)

Me.Items.Add(GetStringFromColor(Color.AliceBlue))
Me.Items.Add(GetStringFromColor(Color.AntiqueWhite))
Me.Items.Add(GetStringFromColor(Color.Aqua))
Me.Items.Add(GetStringFromColor(Color.Aquamarine))
Me.Items.Add(GetStringFromColor(Color.Azure))
Me.Items.Add(GetStringFromColor(Color.Black))
Me.Items.Add(GetStringFromColor(Color.BlanchedAlmond))
Me.Items.Add(GetStringFromColor(Color.Blue))
Me.Items.Add(GetStringFromColor(Color.BlueViolet))
Me.Items.Add(GetStringFromColor(Color.Brown))
Me.Items.Add(GetStringFromColor(Color.BurlyWood))
Me.Items.Add(GetStringFromColor(Color.CadetBlue))
Me.Items.Add(GetStringFromColor(Color.Chartreuse))
Me.Items.Add(GetStringFromColor(Color.Chocolate))
Me.Items.Add(GetStringFromColor(Color.Coral))
Me.Items.Add(GetStringFromColor(Color.CornflowerBlue))
Me.Items.Add(GetStringFromColor(Color.Cornsilk))
Me.Items.Add(GetStringFromColor(Color.Crimson))
Me.Items.Add(GetStringFromColor(Color.Cyan))
Me.Items.Add(GetStringFromColor(Color.DarkBlue))
Me.Items.Add(GetStringFromColor(Color.DarkCyan))
Me.Items.Add(GetStringFromColor(Color.DarkGoldenrod))
Me.Items.Add(GetStringFromColor(Color.DarkGray))
Me.Items.Add(GetStringFromColor(Color.DarkGreen))
Me.Items.Add(GetStringFromColor(Color.DarkKhaki))
Me.Items.Add(GetStringFromColor(Color.DarkMagenta))
Me.Items.Add(GetStringFromColor(Color.DarkOliveGreen))
Me.Items.Add(GetStringFromColor(Color.DarkOrange))
Me.Items.Add(GetStringFromColor(Color.DarkOrchid))
Me.Items.Add(GetStringFromColor(Color.DarkRed))
Me.Items.Add(GetStringFromColor(Color.DarkSalmon))
Me.Items.Add(GetStringFromColor(Color.DarkSeaGreen))
Me.Items.Add(GetStringFromColor(Color.DarkSlateBlue))
Me.Items.Add(GetStringFromColor(Color.DarkSlateGray))
Me.Items.Add(GetStringFromColor(Color.DarkTurquoise))
Me.Items.Add(GetStringFromColor(Color.DarkViolet))
Me.Items.Add(GetStringFromColor(Color.DeepSkyBlue))
Me.Items.Add(GetStringFromColor(Color.DimGray))
Me.Items.Add(GetStringFromColor(Color.DodgerBlue))
Me.Items.Add(GetStringFromColor(Color.Firebrick))
Me.Items.Add(GetStringFromColor(Color.FloralWhite))
Me.Items.Add(GetStringFromColor(Color.ForestGreen))
Me.Items.Add(GetStringFromColor(Color.Fuchsia))
Me.Items.Add(GetStringFromColor(Color.Gainsboro))
Me.Items.Add(GetStringFromColor(Color.GhostWhite))
Me.Items.Add(GetStringFromColor(Color.Gold))
Me.Items.Add(GetStringFromColor(Color.Goldenrod))
Me.Items.Add(GetStringFromColor(Color.Gray))
Me.Items.Add(GetStringFromColor(Color.Green))
Me.Items.Add(GetStringFromColor(Color.GreenYellow))
Me.Items.Add(GetStringFromColor(Color.Honeydew))
Me.Items.Add(GetStringFromColor(Color.HotPink))
Me.Items.Add(GetStringFromColor(Color.IndianRed))
Me.Items.Add(GetStringFromColor(Color.Indigo))
Me.Items.Add(GetStringFromColor(Color.Ivory))
Me.Items.Add(GetStringFromColor(Color.Khaki))
Me.Items.Add(GetStringFromColor(Color.Lavender))
Me.Items.Add(GetStringFromColor(Color.LavenderBlush))
Me.Items.Add(GetStringFromColor(Color.LawnGreen))
Me.Items.Add(GetStringFromColor(Color.LemonChiffon))
Me.Items.Add(GetStringFromColor(Color.LightBlue))
Me.Items.Add(GetStringFromColor(Color.LightCoral))
Me.Items.Add(GetStringFromColor(Color.LightCyan))
Me.Items.Add(GetStringFromColor(Color.LightGoldenrodYellow))
Me.Items.Add(GetStringFromColor(Color.LightGray))
Me.Items.Add(GetStringFromColor(Color.LightGreen))
Me.Items.Add(GetStringFromColor(Color.LightPink))
Me.Items.Add(GetStringFromColor(Color.LightSalmon))
Me.Items.Add(GetStringFromColor(Color.LightSeaGreen))
Me.Items.Add(GetStringFromColor(Color.LightSkyBlue))
Me.Items.Add(GetStringFromColor(Color.LightSlateGray))
Me.Items.Add(GetStringFromColor(Color.LightSteelBlue))
Me.Items.Add(GetStringFromColor(Color.LightYellow))
Me.Items.Add(GetStringFromColor(Color.Lime))
Me.Items.Add(GetStringFromColor(Color.LimeGreen))
Me.Items.Add(GetStringFromColor(Color.Linen))
Me.Items.Add(GetStringFromColor(Color.Magenta))
Me.Items.Add(GetStringFromColor(Color.Maroon))
Me.Items.Add(GetStringFromColor(Color.MediumAquamarine))
Me.Items.Add(GetStringFromColor(Color.MediumBlue))
Me.Items.Add(GetStringFromColor(Color.MediumOrchid))
Me.Items.Add(GetStringFromColor(Color.MediumPurple))
Me.Items.Add(GetStringFromColor(Color.MediumSeaGreen))
Me.Items.Add(GetStringFromColor(Color.MediumSlateBlue))
Me.Items.Add(GetStringFromColor(Color.MediumSpringGreen))
Me.Items.Add(GetStringFromColor(Color.MediumTurquoise))
Me.Items.Add(GetStringFromColor(Color.MediumVioletRed))
Me.Items.Add(GetStringFromColor(Color.MidnightBlue))
Me.Items.Add(GetStringFromColor(Color.MintCream))
Me.Items.Add(GetStringFromColor(Color.MistyRose))
Me.Items.Add(GetStringFromColor(Color.Moccasin))
Me.Items.Add(GetStringFromColor(Color.NavajoWhite))
Me.Items.Add(GetStringFromColor(Color.Navy))
Me.Items.Add(GetStringFromColor(Color.OldLace))
Me.Items.Add(GetStringFromColor(Color.Olive))
Me.Items.Add(GetStringFromColor(Color.OliveDrab))
Me.Items.Add(GetStringFromColor(Color.Orange))
Me.Items.Add(GetStringFromColor(Color.OrangeRed))
Me.Items.Add(GetStringFromColor(Color.Orchid))
Me.Items.Add(GetStringFromColor(Color.PaleGoldenrod))
Me.Items.Add(GetStringFromColor(Color.PaleGreen))
Me.Items.Add(GetStringFromColor(Color.PaleTurquoise))
Me.Items.Add(GetStringFromColor(Color.PaleVioletRed))
Me.Items.Add(GetStringFromColor(Color.PapayaWhip))
Me.Items.Add(GetStringFromColor(Color.PeachPuff))
Me.Items.Add(GetStringFromColor(Color.Peru))
Me.Items.Add(GetStringFromColor(Color.Pink))
Me.Items.Add(GetStringFromColor(Color.Plum))
Me.Items.Add(GetStringFromColor(Color.PowderBlue))
Me.Items.Add(GetStringFromColor(Color.Purple))
Me.Items.Add(GetStringFromColor(Color.Red))
Me.Items.Add(GetStringFromColor(Color.RosyBrown))
Me.Items.Add(GetStringFromColor(Color.RoyalBlue))
Me.Items.Add(GetStringFromColor(Color.SaddleBrown))
Me.Items.Add(GetStringFromColor(Color.Salmon))
Me.Items.Add(GetStringFromColor(Color.SandyBrown))
Me.Items.Add(GetStringFromColor(Color.SeaGreen))
Me.Items.Add(GetStringFromColor(Color.SeaShell))
Me.Items.Add(GetStringFromColor(Color.Sienna))
Me.Items.Add(GetStringFromColor(Color.Silver))
Me.Items.Add(GetStringFromColor(Color.SkyBlue))
Me.Items.Add(GetStringFromColor(Color.SlateBlue))
Me.Items.Add(GetStringFromColor(Color.SlateGray))
Me.Items.Add(GetStringFromColor(Color.Snow))
Me.Items.Add(GetStringFromColor(Color.SpringGreen))
Me.Items.Add(GetStringFromColor(Color.SteelBlue))
Me.Items.Add(GetStringFromColor(Color.Tan))
Me.Items.Add(GetStringFromColor(Color.Teal))
Me.Items.Add(GetStringFromColor(Color.Thistle))
Me.Items.Add(GetStringFromColor(Color.Tomato))
Me.Items.Add(GetStringFromColor(Color.Transparent))
Me.Items.Add(GetStringFromColor(Color.Turquoise))
Me.Items.Add(GetStringFromColor(Color.Violet))
Me.Items.Add(GetStringFromColor(Color.Wheat))
Me.Items.Add(GetStringFromColor(Color.White))
Me.Items.Add(GetStringFromColor(Color.WhiteSmoke))
Me.Items.Add(GetStringFromColor(Color.Yellow))
Me.Items.Add(GetStringFromColor(Color.YellowGreen))
Me.DrawMode = DrawMode.OwnerDrawFixed
bHideText = True

End Sub

Public Sub New(ByVal hideText As Boolean)
Me.New()
bHideText = hideText

End Sub

Protected Overrides Sub OnDrawItem(ByVal e As System.Windows.Forms.DrawItemEventArgs)
Dim grfx As Graphics = e.Graphics
Dim brushColor As Color = GetColorFromString(DirectCast(Me.Items(e.Index), String))
Dim brush As New SolidBrush(brushColor)
grfx.FillRectangle(brush, e.Bounds)

If bHideText = False Then
If brushColor = Color.Black OrElse brushColor = Color.MidnightBlue OrElse brushColor = Color.DarkBlue OrElse brushColor = Color.Indigo OrElse brushColor = Color.MediumBlue OrElse brushColor = Color.Maroon OrElse brushColor = Color.Navy OrElse brushColor = Color.Purple Then
grfx.DrawString(DirectCast(Me.Items(e.Index), String), e.Font, whiteBrush, e.Bounds)
Else
grfx.DrawString(DirectCast(Me.Items(e.Index), String), e.Font, blackBrush, e.Bounds)
End If

Me.SelectionStart = 0
Me.SelectionLength = 0
Else
grfx.DrawString(DirectCast(Me.Items(e.Index), String), e.Font, New SolidBrush(GetColorFromString(DirectCast(Me.Items(e.Index), String))), e.Bounds)
End If
MyBase.OnDrawItem(e)
End Sub

Protected Overrides Sub OnSelectedIndexChanged(ByVal e As System.EventArgs)

Me.BackColor = GetColorFromString(DirectCast(Me.SelectedItem, String))

If bHideText = True Then
Me.ForeColor = Me.BackColor
Me.SelectionStart = 0
Me.SelectionLength = 0
End If

MyBase.OnSelectedIndexChanged(e)

End Sub

Public Function GetStringFromColor(ByVal color As Color) As String
Dim strColorName As String

If color = color.AliceBlue Then
strColorName = "Alice Blue"
ElseIf color = color.AntiqueWhite Then
strColorName = "Antique White"
ElseIf color = color.Aqua Then
strColorName = "Aqua"
ElseIf color = color.Aquamarine Then
strColorName = "Aquamarine"
ElseIf color = color.Azure Then
strColorName = "Azure"
ElseIf color = color.Beige Then
strColorName = "Biege"
ElseIf color = color.Bisque Then
strColorName = "Bisque"
ElseIf color = color.Black Then
strColorName = "Black"
ElseIf color = color.BlanchedAlmond Then
strColorName = "Blanched Almond"
ElseIf color = color.Blue Then
strColorName = "Blue"
ElseIf color = color.BlueViolet Then
strColorName = "Blue Violet"
ElseIf color = color.Brown Then
strColorName = "Brown"
ElseIf color = color.BurlyWood Then
strColorName = "Burly Wood"
ElseIf color = color.CadetBlue Then
strColorName = "Cadet Blue"
ElseIf color = color.Chartreuse Then
strColorName = "Chartreuse"
ElseIf color = color.Chocolate Then
strColorName = "Chocolate"
ElseIf color = color.Coral Then
strColorName = "Coral"
ElseIf color = color.CornflowerBlue Then
strColorName = "Cornflower Blue"
ElseIf color = color.Cornsilk Then
strColorName = "Cornsilk"
ElseIf color = color.Crimson Then
strColorName = "Crimson"
ElseIf color = color.Cyan Then
strColorName = "Cyan"
ElseIf color = color.DarkBlue Then
strColorName = "Dark Blue"
ElseIf color = color.DarkCyan Then
strColorName = "Dark Cyan"
ElseIf color = color.DarkGoldenrod Then
strColorName = "Dark Goldenrod"
ElseIf color = color.DarkGray Then
strColorName = "Dark Gray"
ElseIf color = color.DarkGreen Then
strColorName = "Dark Green"
ElseIf color = color.DarkKhaki Then
strColorName = "Dark Khaki"
ElseIf color = color.DarkMagenta Then
strColorName = "Dark Magenta"
ElseIf color = color.DarkOliveGreen Then
strColorName = "Dark Olive Green"
ElseIf color = color.DarkOrange Then
strColorName = "Dark Orange"
ElseIf color = color.DarkOrchid Then
strColorName = "Dark Orchid"
ElseIf color = color.DarkRed Then
strColorName = "Dark Red"
ElseIf color = color.DarkSalmon Then
strColorName = "Dark Salmon"
ElseIf color = color.DarkSeaGreen Then
strColorName = "Dark Sea Green"
ElseIf color = color.DarkSlateBlue Then
strColorName = "Dark Slate Blue"
ElseIf color = color.DarkSlateGray Then
strColorName = "Dark Slate Gray"
ElseIf color = color.DarkTurquoise Then
strColorName = "Dark Turquoise"
ElseIf color = color.DarkViolet Then
strColorName = "Dark Violet"
ElseIf color = color.DeepPink Then
strColorName = "Deep Pink"
ElseIf color = color.DeepSkyBlue Then
strColorName = "Deep Sky Blue"
ElseIf color = color.DimGray Then
strColorName = "Dim Gray"
ElseIf color = color.DodgerBlue Then
strColorName = "Dodger Blue"
ElseIf color = color.Firebrick Then
strColorName = "Fire Brick"
ElseIf color = color.FloralWhite Then
strColorName = "Floral White"
ElseIf color = color.ForestGreen Then
strColorName = "Forest Green"
ElseIf color = color.Fuchsia Then
strColorName = "Fuschia"
ElseIf color = color.Gainsboro Then
strColorName = "Gainsboro"
ElseIf color = color.GhostWhite Then
strColorName = "Ghost White"
ElseIf color = color.Gold Then
strColorName = "Gold"
ElseIf color = color.Goldenrod Then
strColorName = "Goldenrod"
ElseIf color = color.Gray Then
strColorName = "Gray"
ElseIf color = color.Green Then
strColorName = "Green"
ElseIf color = color.GreenYellow Then
strColorName = "Green Yellow"
ElseIf color = color.Honeydew Then
strColorName = "Honeydew"
ElseIf color = color.HotPink Then
strColorName = "Hot Pink"
ElseIf color = color.IndianRed Then
strColorName = "Indian Red"
ElseIf color = color.Indigo Then
strColorName = "Indigo"
ElseIf color = color.Ivory Then
strColorName = "Ivory"
ElseIf color = color.Khaki Then
strColorName = "Khaki"
ElseIf color = color.Lavender Then
strColorName = "Lavender"
ElseIf color = color.LavenderBlush Then
strColorName = "Lavender Blush"
ElseIf color = color.LawnGreen Then
strColorName = "Lawn Green"
ElseIf color = color.LemonChiffon Then
strColorName = "Lemon Chiffon"
ElseIf color = color.LightBlue Then
strColorName = "Light Blue"
ElseIf color = color.LightCoral Then
strColorName = "Light Coral"
ElseIf color = color.LightCyan Then
strColorName = "Light Cyan"
ElseIf color = color.LightGoldenrodYellow Then
strColorName = "Light Goldenrod Yellow"
ElseIf color = color.LightGray Then
strColorName = "Light Gray"
ElseIf color = color.LightGreen Then
strColorName = "Light Green"
ElseIf color = color.LightPink Then
strColorName = "Light Pink"
ElseIf color = color.LightSalmon Then
strColorName = "Light Salmon"
ElseIf color = color.LightSeaGreen Then
strColorName = "Light Sea Green"
ElseIf color = color.LightSkyBlue Then
strColorName = "Light Sky Blue"
ElseIf color = color.LightSlateGray Then
strColorName = "Light Slate Gray"
ElseIf color = color.LightSteelBlue Then
strColorName = "Light Steel Blue"
ElseIf color = color.LightYellow Then
strColorName = "Light Yellow"
ElseIf color = color.Lime Then
strColorName = "Lime"
ElseIf color = color.LimeGreen Then
strColorName = "Lime Green"
ElseIf color = color.Linen Then
strColorName = "Linen"
ElseIf color = color.Magenta Then
strColorName = "Magenta"
ElseIf color = color.Maroon Then
strColorName = "Maroon"
ElseIf color = color.MediumAquamarine Then
strColorName = "Medium Aquamarine"
ElseIf color = color.MediumBlue Then
strColorName = "Medium Blue"
ElseIf color = color.MediumOrchid Then
strColorName = "Medium Orchid"
ElseIf color = color.MediumPurple Then
strColorName = "Medium Purple"
ElseIf color = color.MediumSeaGreen Then
strColorName = "Medium Sea Green"
ElseIf color = color.MediumSlateBlue Then
strColorName = "Medium Slate Blue"
ElseIf color = color.MediumSpringGreen Then
strColorName = "Medium Spring Green"
ElseIf color = color.MediumTurquoise Then
strColorName = "Medium Turquoise"
ElseIf color = color.MediumVioletRed Then
strColorName = "Medium Violet Red"
ElseIf color = color.MidnightBlue Then
strColorName = "Midnight Blue"
ElseIf color = color.MintCream Then
strColorName = "Mint Cream"
ElseIf color = color.MistyRose Then
strColorName = "Misty Rose"
ElseIf color = color.Moccasin Then
strColorName = "Moccasin"
ElseIf color = color.NavajoWhite Then
strColorName = "Navajo White"
ElseIf color = color.Navy Then
strColorName = "Navy"
ElseIf color = color.OldLace Then
strColorName = "Old Lace"
ElseIf color = color.Olive Then
strColorName = "Olive"
ElseIf color = color.OliveDrab Then
strColorName = "Olive Drab"
ElseIf color = color.Orange Then
strColorName = "Orange"
ElseIf color = color.OrangeRed Then
strColorName = "Orange Red"
ElseIf color = color.Orchid Then
strColorName = "Orchid"
ElseIf color = color.PaleGoldenrod Then
strColorName = "Pale Goldenrod"
ElseIf color = color.PaleGreen Then
strColorName = "Pale Green"
ElseIf color = color.PaleTurquoise Then
strColorName = "Pale Turquoise"
ElseIf color = color.PaleVioletRed Then
strColorName = "Pale Violet Red"
ElseIf color = color.PapayaWhip Then
strColorName = "Papaya Whip"
ElseIf color = color.PeachPuff Then
strColorName = "Peach Puff"
ElseIf color = color.Peru Then
strColorName = "Peru"
ElseIf color = color.Pink Then
strColorName = "Pink"
ElseIf color = color.Plum Then
strColorName = "Plum"
ElseIf color = color.PowderBlue Then
strColorName = "Powder Blue"
ElseIf color = color.Purple Then
strColorName = "Purple"
ElseIf color = color.Red Then
strColorName = "Red"
ElseIf color = color.RosyBrown Then
strColorName = "Rosy Brown"
ElseIf color = color.RoyalBlue Then
strColorName = "Royal Blue"
ElseIf color = color.SaddleBrown Then
strColorName = "Saddle Brown"
ElseIf color = color.Salmon Then
strColorName = "Salmon"
ElseIf color = color.SandyBrown Then
strColorName = "Sandy Brown"
ElseIf color = color.SeaGreen Then
strColorName = "Sea Green"
ElseIf color = color.SeaShell Then
strColorName = "Sea Shell"
ElseIf color = color.Sienna Then
strColorName = "Sienna"
ElseIf color = color.Silver Then
strColorName = "Silver"
ElseIf color = color.SkyBlue Then
strColorName = "Sky Blue"
ElseIf color = color.SlateBlue Then
strColorName = "Slate Blue"
ElseIf color = color.SlateGray Then
strColorName = "Slate Gray"
ElseIf color = color.Snow Then
strColorName = "Snow"
ElseIf color = color.SpringGreen Then
strColorName = "Spring Green"
ElseIf color = color.SteelBlue Then
strColorName = "Steel Blue"
ElseIf color = color.Tan Then
strColorName = "Tan"
ElseIf color = color.Teal Then
strColorName = "Teal"
ElseIf color = color.Thistle Then
strColorName = "Thistle"
ElseIf color = color.Tomato Then
strColorName = "Tomato"
ElseIf color = color.Transparent Then
strColorName = "Transparent"
ElseIf color = color.Turquoise Then
strColorName = "Turquoise"
ElseIf color = color.Violet Then
strColorName = "Violet"
ElseIf color = color.Wheat Then
strColorName = "Wheat"
ElseIf color = color.White Then
strColorName = "White"
ElseIf color = color.WhiteSmoke Then
strColorName = "White Smoke"
ElseIf color = color.Yellow Then
strColorName = "Yellow"
ElseIf color = color.YellowGreen Then
strColorName = "Yellow Green"
Else
strColorName = "none"
End If


Return strColorName
End Function

Public Function GetColorFromString(ByVal strColorName As String) As Color
Dim color As Color

If strColorName = "Alice Blue" Then
color = color.AliceBlue
ElseIf strColorName = "Antique White" Then
color = color.AntiqueWhite
ElseIf strColorName = "Aqua" Then
color = color.Aqua
ElseIf strColorName = "Aquamarine" Then
color = color.Aquamarine
ElseIf strColorName = "Azure" Then
color = color.Azure
ElseIf strColorName = "Biege" Then
color = color.Beige
ElseIf strColorName = "Bisque" Then
color = color.Bisque
ElseIf strColorName = "Black" Then
color = color.Black
ElseIf strColorName = "Blanched Almond" Then
color = color.BlanchedAlmond
ElseIf strColorName = "Blue" Then
color = color.Blue
ElseIf strColorName = "Blue Violet" Then
color = color.BlueViolet
ElseIf strColorName = "Brown" Then
color = color.Brown
ElseIf strColorName = "Burly Wood" Then
color = color.BurlyWood
ElseIf strColorName = "Cadet Blue" Then
color = color.CadetBlue
ElseIf strColorName = "Chartreuse" Then
color = color.Chartreuse
ElseIf strColorName = "Chocolate" Then
color = color.Chocolate
ElseIf strColorName = "Coral" Then
color = color.Coral
ElseIf strColorName = "Cornflower Blue" Then
color = color.CornflowerBlue
ElseIf strColorName = "Cornsilk" Then
color = color.Cornsilk
ElseIf strColorName = "Crimson" Then
color = color.Crimson
ElseIf strColorName = "Cyan" Then
color = color.Cyan
ElseIf strColorName = "Dark Blue" Then
color = color.DarkBlue
ElseIf strColorName = "Dark Cyan" Then
color = color.DarkCyan
ElseIf strColorName = "Dark Goldenrod" Then
color = color.DarkGoldenrod
ElseIf strColorName = "Dark Gray" Then
color = color.DarkGray
ElseIf strColorName = "Dark Green" Then
color = color.DarkGreen
ElseIf strColorName = "Dark Khaki" Then
color = color.DarkKhaki
ElseIf strColorName = "Dark Magenta" Then
color = color.DarkMagenta
ElseIf strColorName = "Dark Olive Green" Then
color = color.DarkOliveGreen
ElseIf strColorName = "Dark Orange" Then
color = color.DarkOrange
ElseIf strColorName = "Dark Orchid" Then
color = color.DarkOrchid
ElseIf strColorName = "Dark Red" Then
color = color.DarkRed
ElseIf strColorName = "Dark Salmon" Then
color = color.DarkSalmon
ElseIf strColorName = "Dark Sea Green" Then
color = color.DarkSeaGreen
ElseIf strColorName = "Dark Slate Blue" Then
color = color.DarkSlateBlue
ElseIf strColorName = "Dark Slate Gray" Then
color = color.DarkSlateGray
ElseIf strColorName = "Dark Turquoise" Then
color = color.DarkTurquoise
ElseIf strColorName = "Dark Violet" Then
color = color.DarkViolet
ElseIf strColorName = "Deep Pink" Then
color = color.DeepPink
ElseIf strColorName = "Deep Sky Blue" Then
color = color.DeepSkyBlue
ElseIf strColorName = "Dim Gray" Then
color = color.DimGray
ElseIf strColorName = "Dodger Blue" Then
color = color.DodgerBlue
ElseIf strColorName = "Fire Brick" Then
color = color.Firebrick
ElseIf strColorName = "Floral White" Then
color = color.FloralWhite
ElseIf strColorName = "Forest Green" Then
color = color.ForestGreen
ElseIf strColorName = "Fuschia" Then
color = color.Fuchsia
ElseIf strColorName = "Gainsboro" Then
color = color.Gainsboro
ElseIf strColorName = "Ghost White" Then
color = color.GhostWhite
ElseIf strColorName = "Gold" Then
color = color.Gold
ElseIf strColorName = "Goldenrod" Then
color = color.Goldenrod
ElseIf strColorName = "Gray" Then
color = color.Gray
ElseIf strColorName = "Green" Then
color = color.Green
ElseIf strColorName = "Green Yellow" Then
color = color.GreenYellow
ElseIf strColorName = "Honeydew" Then
color = color.Honeydew
ElseIf strColorName = "Hot Pink" Then
color = color.HotPink
ElseIf strColorName = "Indian Red" Then
color = color.IndianRed
ElseIf strColorName = "Indigo" Then
color = color.Indigo
ElseIf strColorName = "Ivory" Then
color = color.Ivory
ElseIf strColorName = "Khaki" Then
color = color.Khaki
ElseIf strColorName = "Lavender" Then
color = color.Lavender
ElseIf strColorName = "Lavender Blush" Then
color = color.LavenderBlush
ElseIf strColorName = "Lawn Green" Then
color = color.LawnGreen
ElseIf strColorName = "Lemon Chiffon" Then
color = color.LemonChiffon
ElseIf strColorName = "Light Blue" Then
color = color.LightBlue
ElseIf strColorName = "Light Coral" Then
color = color.LightCoral
ElseIf strColorName = "Light Cyan" Then
color = color.LightCyan
ElseIf strColorName = "Light Goldenrod Yellow" Then
color = color.LightGoldenrodYellow
ElseIf strColorName = "Light Gray" Then
color = color.LightGray
ElseIf strColorName = "Light Green" Then
color = color.LightGreen
ElseIf strColorName = "Light Pink" Then
color = color.LightPink
ElseIf strColorName = "Light Salmon" Then
color = color.LightSalmon
ElseIf strColorName = "Light Sea Green" Then
color = color.LightSeaGreen
ElseIf strColorName = "Light Sky Blue" Then
color = color.LightSkyBlue
ElseIf strColorName = "Light Slate Gray" Then
color = color.LightSlateGray
ElseIf strColorName = "Light Steel Blue" Then
color = color.LightSteelBlue
ElseIf strColorName = "Light Yellow" Then
color = color.LightYellow
ElseIf strColorName = "Lime" Then
color = color.Lime
ElseIf strColorName = "Lime Green" Then
color = color.LimeGreen
ElseIf strColorName = "Linen" Then
color = color.Linen
ElseIf strColorName = "Magenta" Then
color = color.Magenta
ElseIf strColorName = "Maroon" Then
color = color.Maroon
ElseIf strColorName = "Medium Aquamarine" Then
color = color.MediumAquamarine
ElseIf strColorName = "Medium Blue" Then
color = color.MediumBlue
ElseIf strColorName = "Medium Orchid" Then
color = color.MediumOrchid
ElseIf strColorName = "Medium Purple" Then
color = color.MediumPurple
ElseIf strColorName = "Medium Sea Green" Then
color = color.MediumSeaGreen
ElseIf strColorName = "Medium Slate Blue" Then
color = color.MediumSlateBlue
ElseIf strColorName = "Medium Spring Green" Then
color = color.MediumSpringGreen
ElseIf strColorName = "Medium Turquoise" Then
color = color.MediumTurquoise
ElseIf strColorName = "Medium Violet Red" Then
color = color.MediumVioletRed
ElseIf strColorName = "Midnight Blue" Then
color = color.MidnightBlue
ElseIf strColorName = "Mint Cream" Then
color = color.MintCream
ElseIf strColorName = "Misty Rose" Then
color = color.MistyRose
ElseIf strColorName = "Moccasin" Then
color = color.Moccasin
ElseIf strColorName = "Navajo White" Then
color = color.NavajoWhite
ElseIf strColorName = "Navy" Then
color = color.Navy
ElseIf strColorName = "Old Lace" Then
color = color.OldLace
ElseIf strColorName = "Olive" Then
color = color.Olive
ElseIf strColorName = "Olive Drab" Then
color = color.OliveDrab
ElseIf strColorName = "Orange" Then
color = color.Orange
ElseIf strColorName = "Orange Red" Then
color = color.OrangeRed
ElseIf strColorName = "Orchid" Then
color = color.Orchid
ElseIf strColorName = "Pale Goldenrod" Then
color = color.PaleGoldenrod
ElseIf strColorName = "Pale Green" Then
color = color.PaleGreen
ElseIf strColorName = "Pale Turquoise" Then
color = color.PaleTurquoise
ElseIf strColorName = "Pale Violet Red" Then
color = color.PaleVioletRed
ElseIf strColorName = "Papaya Whip" Then
color = color.PapayaWhip
ElseIf strColorName = "Peach Puff" Then
color = color.PeachPuff
ElseIf strColorName = "Peru" Then
color = color.Peru
ElseIf strColorName = "Pink" Then
color = color.Pink
ElseIf strColorName = "Plum" Then
color = color.Plum
ElseIf strColorName = "Powder Blue" Then
color = color.PowderBlue
ElseIf strColorName = "Purple" Then
color = color.Purple
ElseIf strColorName = "Red" Then
color = color.Red
ElseIf strColorName = "Rosy Brown" Then
color = color.RosyBrown
ElseIf strColorName = "Royal Blue" Then
color = color.RoyalBlue
ElseIf strColorName = "Saddle Brown" Then
color = color.SaddleBrown
ElseIf strColorName = "Salmon" Then
color = color.Salmon
ElseIf strColorName = "Sandy Brown" Then
color = color.SandyBrown
ElseIf strColorName = "Sea Green" Then
color = color.SeaGreen
ElseIf strColorName = "Sea Shell" Then
color = color.SeaShell
ElseIf strColorName = "Sienna" Then
color = color.Sienna
ElseIf strColorName = "Silver" Then
color = color.Silver
ElseIf strColorName = "Sky Blue" Then
color = color.SkyBlue
ElseIf strColorName = "Slate Blue" Then
color = color.SlateBlue
ElseIf strColorName = "Slate Gray" Then
color = color.SlateGray
ElseIf strColorName = "Snow" Then
color = color.Snow
ElseIf strColorName = "Spring Green" Then
color = color.SpringGreen
ElseIf strColorName = "Steel Blue" Then
color = color.SteelBlue
ElseIf strColorName = "Tan" Then
color = color.Tan
ElseIf strColorName = "Teal" Then
color = color.Teal
ElseIf strColorName = "Thistle" Then
color = color.Thistle
ElseIf strColorName = "Tomato" Then
color = color.Tomato
ElseIf strColorName = "Transplant" Then
color = color.Transparent
ElseIf strColorName = "Turquoise" Then
color = color.Turquoise
ElseIf strColorName = "Violet" Then
color = color.Violet
ElseIf strColorName = "Wheat" Then
color = color.Wheat
ElseIf strColorName = "White" Then
color = color.White
ElseIf strColorName = "White Smoke" Then
color = color.WhiteSmoke
ElseIf strColorName = "Yellow" Then
color = color.Yellow
ElseIf strColorName = "Yellow Green" Then
color = color.YellowGreen
Else
color = color.Black
End If

Return color
End Function

Protected Overrides Sub OnDropDown(ByVal e As System.EventArgs)

If bHideText = True Then
Me.ForeColor = Me.BackColor
Me.SelectionStart = 0
Me.SelectionLength = 0
End If

MyBase.OnDropDown(e)

End Sub

End Class

Public Class MyComboImageItems

Inherits Object

Private _imageindex As Integer = -1
Private _text As String = Nothing

' Item Text
Public Property text() As String
Get
Return _text
End Get
Set(ByVal value As String)
_text = value
End Set
End Property

' image index
Public Property ImageIndex() As Integer
Get
Return _imageindex
End Get
Set(ByVal value As Integer)
_imageindex = value
End Set
End Property

' ToString() should return item text
Public Overloads Overrides Function ToString() As String
Return _text
End Function

Public Sub New(ByVal Text As String, ByVal ImageIndex As Integer)

_text = Text
_imageindex = ImageIndex

End Sub

End Class

Public Class MyComboImages

Inherits ComboBox
Private _imgs As New ImageList()

Public Sub New()
' set draw mode to owner draw
Me.DrawMode = DrawMode.OwnerDrawFixed
End Sub

' ImageList property
Public Property ImageList() As ImageList
Get
Return _imgs
End Get
Set(ByVal value As ImageList)
_imgs = value
End Set
End Property

Protected Overloads Overrides Sub OnDrawItem(ByVal e As DrawItemEventArgs)
' distance between image widtha and startpoint of the text

Dim Distance As Integer = 5

' draw background & focus rect
e.DrawBackground()
e.DrawFocusRectangle()
' check if it is an item from the Items collection

If e.Index < 0 Then
e.Graphics.DrawString(Me.Text, e.Font, New SolidBrush(e.ForeColor), e.Bounds.Left, e.Bounds.Top)
Else

If Me.Items(e.Index).[GetType]() Is GetType(MyComboImageItems) Then


Dim item As MyComboImageItems = DirectCast(Me.Items(e.Index), MyComboImageItems)

If item.ImageIndex <> -1 Then
' draw image, then draw text next to it
Me.ImageList.Draw(e.Graphics, e.Bounds.Left, e.Bounds.Top, item.ImageIndex)

e.Graphics.DrawString(item.text, e.Font, New SolidBrush(e.ForeColor), e.Bounds.Left + Distance + _imgs.ImageSize.Width, e.Bounds.Top)

End If

Else

e.Graphics.DrawString(Me.Items(e.Index).ToString(), e.Font, New SolidBrush(e.ForeColor), e.Bounds.Left, e.Bounds.Top)


End If

End If

MyBase.OnDrawItem(e)

End Sub

End Class

MyComboImages1.Items.Add(New MyComboImageItems("Algeria Flag", -1))
MyComboImages1.Items.Add(New MyComboImageItems("Algeria Flag", 0))
MyComboImages1.Items.Add(New MyComboImageItems("Egypt Flag", 1))