.NET (Core and Framework)

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

Public Class MyImageButton
  Inherits Control

  'Private members
  Private image As Image
  Private FirstTime As Boolean = True
  'flag to indicate the pressed state
  Private bPushed As Boolean
  Private m_bmpOffscreen As Bitmap

  Sub New()
    bPushed = False
    'default minimal size
    Me.Size = New Size(21, 21)
  End Sub

  Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
    Dim gxOff As Graphics       'Offscreen graphics
    Dim imgRect As Rectangle    'image rectangle
    Dim backBrush As Brush      'brush for filling a backcolor

    'If (m_bmpOffscreen.Equals(Nothing)) Then   'Bitmap for doublebuffering
    If (FirstTime) Then
      m_bmpOffscreen = New Bitmap(ClientSize.Width, ClientSize.Height)
    End If

    gxOff = Graphics.FromImage(m_bmpOffscreen)

    gxOff.Clear(Me.BackColor)

    If (Not bPushed) Then
      backBrush = New SolidBrush(Parent.BackColor)
    Else 'change the background when it's pressed
      backBrush = New SolidBrush(Color.LightGray)
    End If

    gxOff.FillRectangle(backBrush, Me.ClientRectangle)

    If (Not image.Equals(DBNull.Value)) Then
      'Center the image relativelly to the control
      Dim imageLeft As Int32 = (Me.Width - image.Width) / 2
      Dim imageTop As Int32 = (Me.Height - image.Height) / 2

      If (Not bPushed) Then
        imgRect = New Rectangle(imageLeft, imageTop, image.Width, image.Height)
      Else  'The button was pressed
        'Shift the image by one pixel
        imgRect = New Rectangle(imageLeft + 1, imageTop + 1, image.Width, image.Height)
      End If

      'Set transparent key
      Dim imageAttr As ImageAttributes = New ImageAttributes()
      imageAttr.SetColorKey(BackgroundImageColor(image), BackgroundImageColor(image))

      'Draw image
      gxOff.DrawImage(image, imgRect, 0, 0, image.Width, image.Height, GraphicsUnit.Pixel, imageAttr)
    End If

    If (bPushed) Then   'The button was pressed
      'Prepare rectangle
      Dim rc As Rectangle = Me.ClientRectangle
      rc.Width -= 1
      rc.Height -= 1
      'Draw rectangle
      gxOff.DrawRectangle(New Pen(Color.Black), rc)
    End If

    '/Draw from the memory bitmap
    e.Graphics.DrawImage(m_bmpOffscreen, 0, 0)

    MyBase.OnPaint(e)
  End Sub

  Private Function BackgroundImageColor(ByVal image As Image) As Color
    Dim bmp As Bitmap = New Bitmap(image)
    Return bmp.GetPixel(0, 0)
  End Function

  Protected Overrides Sub OnPaintBackground(ByVal e As System.Windows.Forms.PaintEventArgs)
    MyBase.OnPaintBackground(e)
  End Sub

  Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs)
    bPushed = True
    Me.Invalidate()
    MyBase.OnMouseDown(e)
  End Sub

  Protected Overrides Sub OnMouseUp(ByVal e As System.Windows.Forms.MouseEventArgs)
    bPushed = False
    Me.Invalidate()
    MyBase.OnMouseUp(e)
  End Sub

  Public Property MImage() As Image
    Get
      Return image
    End Get
    Set(ByVal value As Image)
      image = value
    End Set
  End Property

End Class

steve_9496613 wrote:

I publish the code of MyImageButton class if it can help someone or anyone has any corrections to suggest.

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
They hate us for our freedom![^]

steve_9496613 wrote:

What is the right way to do this?

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
They hate us for our freedom![^]

Dim b() As Byte
Dim SingleVal As Single
 
SingleVal  = 0.125

b = BitConverter.GetBytes(SingleVal)

samijf wrote:

is obsolete.

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
They hate us for our freedom![^]

Kevin Marois wrote:

does VS put some files in Bin, and other files elsewhere?