.NET [ Clean ][ Ekin0x_ Buttons ][ For Clean GUI ]

Code
Imports System.ComponentModel

Imports System.Runtime.InteropServices



<ToolboxBitmap(GetType(Button))> _

Public Class CommandLink

    Inherits Button



    Public Sub New()

  MyBase.FlatStyle = FlatStyle.System

    End Sub



    Private _icon As Icon

    Private _image As Bitmap

    Private _note As String = String.Empty

    Private _showshield As Boolean

    Private _useicon As Boolean = True



    <DllImport("user32.dll", CharSet:=CharSet.Auto)> _

    Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As IntPtr

    End Function



    <Description("Refreshes the image displayed on the button.")> _

    Public Sub SetImage()

  Dim zero As IntPtr = IntPtr.Zero

  If Not Me._useicon Then

    If (Not Me._image Is Nothing) Then

    zero = Me._image.GetHicon

    End If

  ElseIf (Not Me._icon Is Nothing) Then

    zero = Me.Icon.Handle

  End If

  CommandLink.SendMessage(MyBase.Handle, NativeMethods.BM_SETIMAGE, 1, CInt(zero))

    End Sub



    <Description("Sets the note displayed on the button.")> _

    Private Sub SetNote(ByVal NoteText As String)

  NativeMethods.SendMessage(MyBase.Handle, NativeMethods.BCM_SETNOTE, IntPtr.Zero, NoteText)

    End Sub



    Public Sub SetShield(ByVal Value As Boolean)

  NativeMethods.SendMessage(MyBase.Handle, NativeMethods.BCM_SETSHIELD, IntPtr.Zero, New IntPtr(If(Me._showshield, 1, 0)))

    End Sub



    Protected Overrides ReadOnly Property CreateParams As CreateParams

  Get

    Dim createParam As CreateParams = MyBase.CreateParams

    createParam.Style = (createParam.Style Or 14)

    Return createParam

  End Get

    End Property



    <Category("Appearance"), Description("Gets or sets the icon that is displayed on a button control."), DefaultValue(CStr(Nothing))> _

    Public Property Icon As Icon

  Get

    Return Me._icon

  End Get

  Set(ByVal value As Icon)

    Me._icon = value

    If (Not Me._icon Is Nothing) Then

    Me._useicon = True

    End If

    Me.SetShield(False)

    Me.SetImage()

  End Set

    End Property



    <Category("Appearance"), Description("Gets or sets the image that is displayed on a button control."), DefaultValue(CStr(Nothing))> _

    Public Overloads Property Image As Bitmap

  Get

    Return Me._image

  End Get

  Set(ByVal value As Bitmap)

    Me._image = value

    If (Not value Is Nothing) Then

    Me._useicon = False

    Me.Icon = Nothing

    End If

    Me.SetShield(False)

    Me.SetImage()

  End Set

    End Property



    <Description("Gets or sets the note that is displayed on a button control."), Category("Appearance"), DefaultValue("")> _

    Public Property Note As String

  Get

    Return Me._note

  End Get

  Set(ByVal value As String)

    Me._note = value

    Me.SetNote(Me._note)

  End Set

    End Property



    <Description("Gets or sets whether if the control should use an elevated shield icon."), DefaultValue(False), Category("Appearance")> _

    Public Property ShowShield As Boolean

  Get

    Return Me._showshield

  End Get

  Set(ByVal value As Boolean)

    Me._showshield = value

    Me.SetShield(value)

    If Not value Then

    Me.SetImage()

    End If

  End Set

    End Property



End Class



Friend Class NativeMethods

    <DllImport("user32.dll", CharSet:=CharSet.Unicode)> _

    Public Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As UInt32, ByVal wParam As Integer, ByVal lParam As Integer) As Integer

    End Function



    Public Const BCM_SETNOTE As Integer = 5641

    Public Const BCM_SETSHIELD As Integer = 5644

    Public Const BM_SETIMAGE As Integer = 247

End Class