嗷嗷叫的老马

Imports System
Imports System.Drawing
Imports System.Windows.Forms

'Button with an image custom control.
Public Class PictureButton
    Inherits UserControl

    Private backgroundImg As Image
    Private pressedImg As Image
    Private pressed As Boolean = False
    Private destRT As Rectangle                             '按钮区域
    Private srcRTBK As Rectangle, srcRTPS As Rectangle      '按下与背景图区域

    ' Property for the background image to be drawn behind the button text.
    Public Property BackgroundImageValue() As Image
        Get
            Return Me.backgroundImg
        End Get
        Set(ByVal Value As Image)
            Me.backgroundImg = Value
            srcRTBK = New Rectangle(0, 0, Me.backgroundImg.Width, Me.backgroundImg.Height)
        End Set
    End Property

    ' Property for the background image to be drawn behind the button text when
    ' the button is pressed.
    Public Property PressedImageValue() As Image
        Get
            Return Me.pressedImg
        End Get
        Set(ByVal Value As Image)
            Me.pressedImg = Value
            srcRTPS = New Rectangle(0, 0, Me.pressedImg.Width, Me.pressedImg.Height)
        End Set
    End Property

    ' When the mouse button is pressed, set the "pressed" flag to true
    ' and ivalidate the form to cause a repaint.  The .NET Compact Framework
    ' sets the mouse capture automatically.
    Protected Overrides Sub OnMouseDown(ByVal e As MouseEventArgs)
        Me.pressed = True
        Me.Invalidate()
        MyBase.OnMouseDown(e)
    End Sub

    ' When the mouse is released, reset the "pressed" flag
    ' and invalidate to redraw the button in the unpressed state.
    Protected Overrides Sub OnMouseUp(ByVal e As MouseEventArgs)
        Me.pressed = False
        Me.Invalidate()
        MyBase.OnMouseUp(e)
    End Sub

    ' Override the OnPaint method to draw the background image and the text.
    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        If Me.pressed AndAlso (Me.pressedImg IsNot Nothing) Then
            e.Graphics.DrawImage(Me.pressedImg, destRT, srcRTPS, GraphicsUnit.Pixel)
        Else
            e.Graphics.DrawImage(Me.backgroundImg, destRT, srcRTBK, GraphicsUnit.Pixel)
        End If

        ' Draw the text if there is any.
        If Me.Text.Length > 0 Then
            Dim size As SizeF = e.Graphics.MeasureString(Me.Text, Me.Font)

            ' Center the text inside the client area of the PictureButton.
            e.Graphics.DrawString(Me.Text, Me.Font, New SolidBrush(Me.ForeColor), _
                (Me.ClientSize.Width - size.Width) / 2, _
                (Me.ClientSize.Height - size.Height) / 2)
        End If

        ' Draw a border around the outside of the   
        ' control to look like Pocket PC buttons.
        e.Graphics.DrawRectangle(New Pen(Color.Black), 0, 0, _
            Me.ClientSize.Width - 1, Me.ClientSize.Height - 1)

        MyBase.OnPaint(e)
    End Sub

    Private Sub PictureButton_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Resize
        destRT = New Rectangle(0, 0, Me.Width, Me.Height)
    End Sub
End Class

    Protected Overrides Sub OnPaintBackground(ByVal e As System.Windows.Forms.PaintEventArgs)
        'MyBase.OnPaintBackground(e)        '禁止绘制背景
    End Sub