VB.Net by API/System.Windows.Forms/PictureBox

PictureBox.DisplayRectangle

  
Imports System
Imports System.Data
Imports System.Windows.Forms
Imports System.Drawing
Imports System.Drawing.Printing
Public Class MainClass
    
    Shared Sub Main()
       Dim form1 As Form = New Form1
       Application.Run(form1)    
    End Sub
End Class

Public Class Form1
    Private Sub picCanvas3_Paint(ByVal sender As Object, _
     ByVal e As System.Windows.Forms.PaintEventArgs) Handles picCanvas3.Paint
        e.Graphics.DrawEllipse(Pens.Red, _
            picCanvas3.DisplayRectangle.X, _
            picCanvas3.DisplayRectangle.Y, _
            picCanvas3.DisplayRectangle.Width - 1, _
            picCanvas3.DisplayRectangle.Height - 1)
    End Sub
End Class

<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _
Partial Public Class Form1
    Inherits System.Windows.Forms.Form
    "Form overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing AndAlso components IsNot Nothing Then
            components.Dispose()
        End If
        MyBase.Dispose(disposing)
    End Sub
    "Required by the Windows Form Designer
    Private components As System.ruponentModel.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.picCanvas3 = New System.Windows.Forms.PictureBox
        CType(Me.picCanvas3, System.ruponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        "
        "picCanvas3
        "
        Me.picCanvas3.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.picCanvas3.Location = New System.Drawing.Point(360, 8)
        Me.picCanvas3.Name = "picCanvas3"
        Me.picCanvas3.Size = New System.Drawing.Size(168, 168)
        Me.picCanvas3.TabIndex = 3
        Me.picCanvas3.TabStop = False
        "
        "Form1
        "
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(536, 214)
        Me.Controls.Add(Me.picCanvas3)
        Me.Name = "Form1"
        Me.Text = "UsePictureBox"
        CType(Me.picCanvas3, System.ruponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
    End Sub
    Friend WithEvents picCanvas3 As System.Windows.Forms.PictureBox
End Class

PictureBox.Image

  
Imports System.Drawing.Drawing2D
Imports System
Imports System.Drawing.Text
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Math
Public Class MainClass
   Shared Sub Main()
       Dim form1 As Form = New Form1()
       Application.Run(form1)
   End Sub 
End Class
 
 
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim bm As New Bitmap("figure2.bmp")
        Dim source_bm As New Bitmap(bm)
    
        bm.Dispose()
        picSource.Image = source_bm
        picDest.Size = picSource.Size
        Dim dest_bm As New Bitmap(source_bm)
        For y As Integer = 0 To dest_bm.Height - 1
            For x As Integer = 0 To dest_bm.Width - 1
                Dim clr As Color = dest_bm.GetPixel(x, y)
                clr = Color.FromArgb(255,255 - clr.R,255 - clr.G,255 - clr.B)
                dest_bm.SetPixel(x, y, clr)
            Next x
        Next y
        picDest.Image = dest_bm
    End Sub
End Class
 
 
<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _
Partial Public Class Form1
    Inherits System.Windows.Forms.Form
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.SplitContainer1 = New System.Windows.Forms.SplitContainer
        Me.picSource = New System.Windows.Forms.PictureBox
        Me.picDest = New System.Windows.Forms.PictureBox
        Me.SplitContainer1.Panel1.SuspendLayout()
        Me.SplitContainer1.Panel2.SuspendLayout()
        Me.SplitContainer1.SuspendLayout()
        CType(Me.picSource, System.ruponentModel.ISupportInitialize).BeginInit()
        CType(Me.picDest, System.ruponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        "
        "SplitContainer1
        "
        Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.SplitContainer1.Location = New System.Drawing.Point(0, 24)
        Me.SplitContainer1.Name = "SplitContainer1"
        "
        "SplitContainer1.Panel1
        "
        Me.SplitContainer1.Panel1.AutoScroll = True
        Me.SplitContainer1.Panel1.Controls.Add(Me.picSource)
        "
        "SplitContainer1.Panel2
        "
        Me.SplitContainer1.Panel2.AutoScroll = True
        Me.SplitContainer1.Panel2.Controls.Add(Me.picDest)
        Me.SplitContainer1.Size = New System.Drawing.Size(522, 249)
        Me.SplitContainer1.SplitterDistance = 270
        Me.SplitContainer1.TabIndex = 1
        Me.SplitContainer1.Text = "SplitContainer1"
        "
        "picSource
        "
        Me.picSource.AutoSize = True
        Me.picSource.Location = New System.Drawing.Point(0, 0)
        Me.picSource.Name = "picSource"
        Me.picSource.Size = New System.Drawing.Size(208, 184)
        Me.picSource.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
        Me.picSource.TabIndex = 0
        Me.picSource.TabStop = False
        "
        "picDest
        "
        Me.picDest.AutoSize = True
        Me.picDest.Location = New System.Drawing.Point(0, 0)
        Me.picDest.Name = "picDest"
        Me.picDest.Size = New System.Drawing.Size(184, 184)
        Me.picDest.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
        Me.picDest.TabIndex = 1
        Me.picDest.TabStop = False
        "
        "Form1
        "
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(522, 273)
        Me.Controls.Add(Me.SplitContainer1)
        Me.Name = "Form1"
        Me.Text = "InvertImageGetSetPixels"
        Me.SplitContainer1.Panel1.ResumeLayout(False)
        Me.SplitContainer1.Panel1.PerformLayout()
        Me.SplitContainer1.Panel2.ResumeLayout(False)
        Me.SplitContainer1.Panel2.PerformLayout()
        Me.SplitContainer1.ResumeLayout(False)
        CType(Me.picSource, System.ruponentModel.ISupportInitialize).EndInit()
        CType(Me.picDest, System.ruponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()
    End Sub
    Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer
    Friend WithEvents picSource As System.Windows.Forms.PictureBox
    Friend WithEvents picDest As System.Windows.Forms.PictureBox
End Class