Alright. How about this - just past the code behind a blank form, add six images to Project Resources (you may want to change their names to reflect the ones I have to make it easier) and run it. I think it illustrates my point pretty well.
Public Class Form1
Private pnl As New MultiImagePanel(MultiImagePanel.Icons.CheckedTask)
Private WithEvents Button1 As New Button
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Button1.Text = "Change"
Me.Size = New Size(300, 300)
Me.Controls.Add(Button1)
Me.Controls.Add(pnl)
Button1.Location = New Point(135, 40)
pnl.Location = New Point(Button1.Left, Button1.Bottom + 10)
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
If CInt(pnl.SelectedImage) = 5 Then
pnl.SelectedImage = 0
Else
pnl.SelectedImage = CType(CInt(pnl.SelectedImage) + 1, MultiImagePanel.Icons)
End If
End Sub
End Class
Public Class MultiImagePanel
Inherits Panel
Public Enum Icons
CheckBox_Green = 0
CheckBox_Red = 1
CheckedTask = 2
CheckedTask_All = 3
close = 4
Collapse_small = 5
End Enum
Private Shared Images As ImageList
Shared Sub New()
Images = New ImageList()
Images.ColorDepth = ColorDepth.Depth32Bit
Images.ImageSize = New Size(32, 32)
'Load the six images into the list...
Images.Images.AddRange(New Image() {My.Resources.CheckBox_Green, My.Resources.CheckBox_Red, _
My.Resources.CheckedTask, My.Resources.CheckedTask_All, My.Resources.close, My.Resources.Collapse_small})
End Sub
Private m_SelectedImage As Icons
Public Property SelectedImage() As Icons
Get
Return m_SelectedImage
End Get
Set(ByVal value As Icons)
m_SelectedImage = value
SetImage(value)
End Set
End Property
Public Sub New(Optional ByVal _picture As Icons = Icons.close)
MyBase.Size = New Size(32, 32)
MyBase.BackgroundImageLayout = ImageLayout.Zoom
'Using a default icon ("close")
SetImage(_picture)
End Sub
Private Sub SetImage(ByVal _picture As Icons)
m_SelectedImage = _picture
'The index within the image list must match the enum values.
MyBase.BackgroundImage = Images.Images(CInt(_picture))
End Sub
#Region " Size Management "
Public Shadows ReadOnly Property Size() As Size
Get
Return MyBase.Size
End Get
End Property
Public Shadows ReadOnly Property Width() As Int32
Get
Return MyBase.Width
End Get
End Property
Public Shadows ReadOnly Property Height() As Int32
Get
Return MyBase.Width
End Get
End Property
Private Sub MultiImagePanel_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles MyBase.SizeChanged
If MyBase.Width <> 32 OrElse MyBase.Height <> 32 Then
MyBase.Size = New Size(32, 32)
End If
End Sub
#End Region
End Class
