用图片表示的CheckBox

'在项目中创建一个用户控件,明名为PicCheckBox

'在设计器中放置一个系统的PictureBox,明名为PicBox

'打开代码文件,填上如下代码

Public Class PicCheckBox

    Private _TrueImage As System.Drawing.Image
    Private _FalseImage As System.Drawing.Image
    Private _Bool As Boolean

    Public Property TrueImage() As System.Drawing.Image
        Get
            Return _TrueImage
        End Get
        Set(ByVal value As System.Drawing.Image)
            _TrueImage = value
        End Set
    End Property

    Public Property FalseImage() As System.Drawing.Image
        Get
            Return _FalseImage
        End Get
        Set(ByVal value As System.Drawing.Image)
            _FalseImage = value
        End Set
    End Property

    Public Property Bool() As Boolean
        Get
            Return _Bool
        End Get
        Set(ByVal value As Boolean)
            _Bool = value
            Dim e As New System.EventArgs()
            RaiseEvent BoolChangedHander(Me, e)
        End Set
    End Property

    Private Sub PicCheckBox_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.PicBox.Image = FalseImage
    End Sub
    Public Event BoolChangedHander(ByVal sender As Object, ByVal e As System.EventArgs)

    Private Sub BoolChanged(ByVal sender As Object, ByVal e As EventArgs) Handles Me.BoolChangedHander
        If Bool = True Then
            PicBox.Image = _TrueImage
        Else
            PicBox.Image = _FalseImage
        End If
    End Sub

End Class