Draw Image on a Frame : Draw Image « 2D « VB.Net

Draw Image on a Frame

Draw Image on a Frame
Imports System
Imports System.Runtime.InteropServices
Imports System.Drawing
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.IO

Public Class MainClass
    Shared Sub Main(ByVal args As String())
        Dim myform As Form = New Form1()

    End Sub

End Class

Public Class Form1
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim bm As Bitmap = new Bitmap("figure2.bmp")

        ' Make the bitmap's "background" pixels transparent.
        bm.MakeTransparent(bm.GetPixel(1, 1))

        ' Draw the bitmap onto the form.
        e.Graphics.DrawImage(bm, 0, 0)
    End Sub
End Class

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class Form1
    Inherits System.Windows.Forms.Form

    'Form overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing AndAlso components IsNot Nothing Then
        End If
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(702, 303)
        Me.Name = "Form1"
        Me.Text = "ShowCursors"

    End Sub

End Class


Related examples in the same category

1.Process an Image: invert PixelProcess an Image: invert Pixel
2.Displaying and resizing an imageDisplaying and resizing an image