Xolara's Tutorials

[xolara]

A6 - Red Button Component

Class Library

Code:

Public Class RedButtonComponent
    Inherits windows.forms.button
    Public Sub New()
        Me.Size = New System.Drawing.Point(90, 25)
        Me.FlatStyle = Windows.Forms.FlatStyle.Flat
        Me.FlatAppearance.BorderSize = 0
        Me.FlatAppearance.BorderColor = System.Drawing.Color.Gray
        Me.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Transparent
        Me.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Transparent
        Me.BackColor = System.Drawing.Color.Transparent
        Me.BackgroundImage = My.Resources.RedButtonNormal
        Me.BackgroundImageLayout = Windows.Forms.ImageLayout.Stretch
        Me.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    End Sub

    Private Sub RedButtonComponent_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        Me.BackgroundImage = My.Resources.RedButtonClick
    End Sub

    Private Sub RedButtonComponent_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseEnter
        Me.BackgroundImage = My.Resources.RedButtonOver
    End Sub

    Private Sub RedButtonComponent_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseLeave
        Me.BackgroundImage = My.Resources.RedButtonNormal
    End Sub

    Private Sub RedButtonComponent_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
        Me.BackgroundImage = My.Resources.RedButtonOver
    End Sub
End Class

Button Images: <!-- m --><a class="postlink" href="http://dl.dropbox.com/u/12582973/red.zip">http://dl.dropbox.com/u/12582973/red.zip</a><!-- m -->

Youtube: <!-- m --><a class="postlink" href="http://www.youtube.com/watch?v=8ejPdkwWf-k">http://www.youtube.com/watch?v=8ejPdkwWf-k</a><!-- m -->