VB.Net Tutorial/2D Graphics/Image Operation — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
(нет различий)
|
Текущая версия на 15:54, 26 мая 2010
Содержание
Invert an Image
<source lang="vbnet">Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms Imports System.Math public class RevertImage
public Shared Sub Main Application.Run(New Form1) End Sub
End class public class Form1
Inherits System.Windows.Forms.Form Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs) Dim bm As New Bitmap("yourfile.jpg") e.Graphics.DrawImage(bm, 0, 0, 400, 400) Dim dest_bm As New Bitmap("yourfile.jpg") InvertImage(dest_bm) e.Graphics.DrawImage(dest_bm, 400, 0, 400, 400) End Sub Private Sub InvertImage(ByVal bm As Bitmap) For y As Integer = 0 To bm.Height - 1 For x As Integer = 0 To bm.Width - 1 Dim clr As Color = bm.GetPixel(x, y) clr = Color.FromArgb(255,255 - clr.R, 255 - clr.G, 255 - clr.B) bm.SetPixel(x, y, clr) Next x Next y End Sub Public Sub New() MyBase.New() Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(292, 273) Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen End Sub
End Class</source>
Invert an Image unsafe
<source lang="vbnet">"Visual Basic 2005 Programmer"s Reference "by Rod Stephens (Author) "# Publisher: Wrox (October 21, 2005) "# Language: English "# ISBN-10: 0764571982 "# ISBN-13: 978-0764571985 Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms Imports System.Math Imports System.Drawing.Imaging Imports System.Runtime.InteropServices public class InvertImageUnsafe
public Shared Sub Main Application.Run(New Form1) End Sub
End class
Public Class BitmapBytesRGB24
" Provide public access to the picture"s byte data. Public ImageBytes() As Byte Public RowSizeBytes As Integer Public Const PixelDataSize As Integer = 24 " A reference to the Bitmap. Private m_Bitmap As Bitmap " Save a reference to the bitmap. Public Sub New(ByVal bm As Bitmap) m_Bitmap = bm End Sub " Bitmap data. Private m_BitmapData As BitmapData " Lock the bitmap"s data. Public Sub LockBitmap() " Lock the bitmap data. Dim bounds As Rectangle = New Rectangle( _ 0, 0, m_Bitmap.Width, m_Bitmap.Height) m_BitmapData = m_Bitmap.LockBits(bounds, _ Imaging.ImageLockMode.ReadWrite, _ Imaging.PixelFormat.Format24bppRgb) RowSizeBytes = m_BitmapData.Stride " Allocate room for the data. Dim total_size As Integer = m_BitmapData.Stride * m_BitmapData.Height ReDim ImageBytes(total_size) " Copy the data into the ImageBytes array. Marshal.Copy(m_BitmapData.Scan0, ImageBytes, _ 0, total_size) End Sub " Copy the data back into the Bitmap " and release resources. Public Sub UnlockBitmap() " Copy the data back into the bitmap. Dim total_size As Integer = m_BitmapData.Stride * m_BitmapData.Height Marshal.Copy(ImageBytes, 0, _ m_BitmapData.Scan0, total_size) " Unlock the bitmap. m_Bitmap.UnlockBits(m_BitmapData) " Release resources. ImageBytes = Nothing m_BitmapData = Nothing End Sub
End Class Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub mnuFileOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFileOpen.Click Dim bm As New Bitmap("yourfile.jpg") Dim source_bm As New Bitmap(bm) bm.Dispose() picSource.Image = source_bm " Arrange the controls. picDest.Size = picSource.Size " Make the result Bitmap. Dim dest_bm As New Bitmap(source_bm) " Invert the image"s pixels. Dim start_time As DateTime Dim stop_time As DateTime Dim elapsed_time As TimeSpan start_time = Now InvertImage(dest_bm) stop_time = Now " Display the results. picDest.Image = dest_bm elapsed_time = stop_time.Subtract(start_time) MessageBox.Show(elapsed_time.TotalSeconds.ToString("0.0000") & " seconds") End Sub " Invert the pixel values in this Bitmap. Private Sub InvertImage(ByVal bm As Bitmap) " Make a BitmapBytesRGB24 object. Dim bm_bytes As New BitmapBytesRGB24(bm) " Lock the bitmap. bm_bytes.LockBitmap() Dim pix As Integer For y As Integer = 0 To bm.Height - 1 pix = y * bm_bytes.RowSizeBytes For x As Integer = 0 To bm.Width - 1 " Blue component. bm_bytes.ImageBytes(pix) = CByte(255) - bm_bytes.ImageBytes(pix) pix += 1 " Green component. bm_bytes.ImageBytes(pix) = CByte(255) - bm_bytes.ImageBytes(pix) pix += 1 " Red component. bm_bytes.ImageBytes(pix) = CByte(255) - bm_bytes.ImageBytes(pix) pix += 1 Next x Next y " Unlock the bitmap. bm_bytes.UnlockBitmap() 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.SplitContainer1 = New System.Windows.Forms.SplitContainer Me.picSource = New System.Windows.Forms.PictureBox Me.picDest = New System.Windows.Forms.PictureBox Me.MenuStrip1 = New System.Windows.Forms.MenuStrip Me.mnuFile = New System.Windows.Forms.ToolStripMenuItem Me.mnuFileOpen = New System.Windows.Forms.ToolStripMenuItem Me.dlgOpenImage = New System.Windows.Forms.OpenFileDialog 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.MenuStrip1.SuspendLayout() 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 = 3 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 " "MenuStrip1 " Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuFile}) Me.MenuStrip1.Location = New System.Drawing.Point(0, 0) Me.MenuStrip1.Name = "MenuStrip1" Me.MenuStrip1.Size = New System.Drawing.Size(522, 24) Me.MenuStrip1.TabIndex = 2 Me.MenuStrip1.Text = "MenuStrip1" " "mnuFile " Me.mnuFile.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuFileOpen}) Me.mnuFile.Name = "mnuFile" Me.mnuFile.Text = "&File" " "mnuFileOpen " Me.mnuFileOpen.Name = "mnuFileOpen" Me.mnuFileOpen.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.O), System.Windows.Forms.Keys) Me.mnuFileOpen.Text = "&Open" " "dlgOpenImage " Me.dlgOpenImage.Filter = "Bitmap Files (*.bmp)|*.bmp|All Files (*.*)|*.*" " "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.Controls.Add(Me.MenuStrip1) Me.Name = "Form1" Me.Text = "InvertImageUnsafe" 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.MenuStrip1.ResumeLayout(False) 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 Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip Friend WithEvents mnuFile As System.Windows.Forms.ToolStripMenuItem Friend WithEvents mnuFileOpen As System.Windows.Forms.ToolStripMenuItem Friend WithEvents dlgOpenImage As System.Windows.Forms.OpenFileDialog
End Class</source>
Make an image transparent
<source lang="vbnet">Imports System.Drawing Imports System.Drawing.Imaging Imports System.Windows.Forms public class BitmapTransparent
public Shared Sub Main Application.Run(New TransparencyForm) End Sub
End class Public Class TransparencyForm
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call Me.SetStyle(ControlStyles.ResizeRedraw, True) Me.SetStyle(ControlStyles.DoubleBuffer, True) Me.SetStyle(ControlStyles.AllPaintingInWmPaint, True) End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If 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. Friend WithEvents splitter2 As System.Windows.Forms.Splitter Friend WithEvents splitter1 As System.Windows.Forms.Splitter Friend WithEvents groupBox1 As System.Windows.Forms.GroupBox Friend WithEvents panel1 As System.Windows.Forms.Panel Friend WithEvents groupBox3 As System.Windows.Forms.GroupBox Friend WithEvents panel3 As System.Windows.Forms.Panel Friend WithEvents groupBox2 As System.Windows.Forms.GroupBox Friend WithEvents panel2 As System.Windows.Forms.Panel <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.splitter2 = New System.Windows.Forms.Splitter() Me.splitter1 = New System.Windows.Forms.Splitter() Me.groupBox1 = New System.Windows.Forms.GroupBox() Me.panel1 = New System.Windows.Forms.Panel() Me.groupBox3 = New System.Windows.Forms.GroupBox() Me.panel3 = New System.Windows.Forms.Panel() Me.groupBox2 = New System.Windows.Forms.GroupBox() Me.panel2 = New System.Windows.Forms.Panel() Me.groupBox1.SuspendLayout() Me.groupBox3.SuspendLayout() Me.groupBox2.SuspendLayout() Me.SuspendLayout() " "splitter2 " Me.splitter2.Location = New System.Drawing.Point(232, 0) Me.splitter2.Name = "splitter2" Me.splitter2.Size = New System.Drawing.Size(3, 102) Me.splitter2.TabIndex = 9 Me.splitter2.TabStop = False " "splitter1 " Me.splitter1.Location = New System.Drawing.Point(229, 0) Me.splitter1.Name = "splitter1" Me.splitter1.Size = New System.Drawing.Size(3, 102) Me.splitter1.TabIndex = 6 Me.splitter1.TabStop = False " "groupBox1 " Me.groupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.panel1}) Me.groupBox1.Dock = System.Windows.Forms.DockStyle.Left Me.groupBox1.Location = New System.Drawing.Point(117, 0) Me.groupBox1.Name = "groupBox1" Me.groupBox1.Size = New System.Drawing.Size(300, 102) Me.groupBox1.TabIndex = 5 Me.groupBox1.TabStop = False Me.groupBox1.Text = "Original Colors" " "panel1 " Me.panel1.BackColor = System.Drawing.Color.White Me.panel1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.panel1.Dock = System.Windows.Forms.DockStyle.Fill Me.panel1.Location = New System.Drawing.Point(3, 16) Me.panel1.Name = "panel1" Me.panel1.Size = New System.Drawing.Size(106, 83) Me.panel1.TabIndex = 0 " "groupBox3 " Me.groupBox3.Controls.AddRange(New System.Windows.Forms.Control() {Me.panel3}) Me.groupBox3.Dock = System.Windows.Forms.DockStyle.Fill Me.groupBox3.Location = New System.Drawing.Point(117, 0) Me.groupBox3.Name = "groupBox3" Me.groupBox3.Size = New System.Drawing.Size(235, 102) Me.groupBox3.TabIndex = 8 Me.groupBox3.TabStop = False Me.groupBox3.Text = "Made Transparent" " "panel3 " Me.panel3.BackColor = System.Drawing.Color.White Me.panel3.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.panel3.Dock = System.Windows.Forms.DockStyle.Fill Me.panel3.Location = New System.Drawing.Point(3, 16) Me.panel3.Name = "panel3" Me.panel3.Size = New System.Drawing.Size(229, 83) Me.panel3.TabIndex = 0 " "groupBox2 " Me.groupBox2.Controls.AddRange(New System.Windows.Forms.Control() {Me.panel2}) Me.groupBox2.Dock = System.Windows.Forms.DockStyle.Left Me.groupBox2.Name = "groupBox2" Me.groupBox2.Size = New System.Drawing.Size(117, 102) Me.groupBox2.TabIndex = 7 Me.groupBox2.TabStop = False Me.groupBox2.Text = "White Background" " "panel2 " Me.panel2.BackColor = System.Drawing.Color.White Me.panel2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.panel2.Dock = System.Windows.Forms.DockStyle.Fill Me.panel2.Location = New System.Drawing.Point(3, 16) Me.panel2.Name = "panel2" Me.panel2.Size = New System.Drawing.Size(111, 83) Me.panel2.TabIndex = 0 " "TransparencyForm " Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(352, 102) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.groupBox1}) Me.Name = "TransparencyForm" Me.Text = "TransparencyForm" Me.groupBox1.ResumeLayout(False) Me.groupBox3.ResumeLayout(False) Me.groupBox2.ResumeLayout(False) Me.ResumeLayout(False) End Sub
- End Region
Dim backgroundString As String = "the quick brown fox jumps over the lazy dog\nthe quick brown fox jumps over the lazy dog\nthe quick brown fox jumps over the lazy dog\nthe quick brown fox jumps over the lazy dog\nthe quick brown fox jumps over the lazy dog\nthe quick brown fox jumps over the lazy dog\nthe quick brown fox jumps over the lazy dog\nthe quick brown fox jumps over the lazy dog\nthe quick brown fox jumps over the lazy dog\nthe quick brown fox jumps over the lazy dog\nthe quick brown fox jumps over the lazy dog\nthe quick brown fox jumps over the lazy dog\nthe quick brown fox jumps over the lazy dog\nthe quick brown fox jumps over the lazy dog\nthe quick brown fox jumps over the lazy dog\n"
Private Sub panel1_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles panel1.Paint Dim g As Graphics = e.Graphics Dim bmp As Bitmap = New Bitmap("yourfile.jpg") g.DrawString(backgroundString, Me.Font, Brushes.Black, Me.ClientRectangle.Left, Me.ClientRectangle.Top) bmp.MakeTransparent(bmp.GetPixel(10, 10)) Dim rect As Rectangle = New Rectangle(0, 0, bmp.Width, bmp.Height) rect.Offset((Me.panel1.ClientRectangle.Width - rect.Width) / 2, (Me.panel1.ClientRectangle.Height - rect.Height) / 2) g.DrawImage(bmp, rect) End Sub Private Sub TransparencyForm_Layout(ByVal sender As Object, ByVal e As LayoutEventArgs) Handles MyBase.Layout panel1.Refresh() End Sub
End Class</source>
Mirror an Image
<source lang="vbnet">Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class RotateImage
public Shared Sub Main Application.Run(New Form1) End Sub
End class Public Class Form1
Inherits System.Windows.Forms.Form Public Sub New() MyBase.New() InitializeComponent() End Sub Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub Private components As System.ruponentModel.IContainer Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents Button3 As System.Windows.Forms.Button Friend WithEvents Button4 As System.Windows.Forms.Button Friend WithEvents Panel1 As System.Windows.Forms.Panel Friend WithEvents Panel2 As System.Windows.Forms.Panel <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.Button2 = New System.Windows.Forms.Button Me.Button4 = New System.Windows.Forms.Button Me.Panel1 = New System.Windows.Forms.Panel Me.Panel2 = New System.Windows.Forms.Panel Me.SuspendLayout() " "Button2 " Me.Button2.Location = New System.Drawing.Point(88, 232) Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(64, 24) Me.Button2.TabIndex = 3 Me.Button2.Text = "Mirror" " "Button4 " Me.Button4.Location = New System.Drawing.Point(328, 232) Me.Button4.Name = "Button4" Me.Button4.Size = New System.Drawing.Size(56, 24) Me.Button4.TabIndex = 5 Me.Button4.Text = "Exit" " "Panel1 " Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.Panel1.Location = New System.Drawing.Point(24, 16) Me.Panel1.Name = "Panel1" Me.Panel1.Size = New System.Drawing.Size(200, 184) Me.Panel1.TabIndex = 10 " "Panel2 " Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.Panel2.Location = New System.Drawing.Point(248, 16) Me.Panel2.Name = "Panel2" Me.Panel2.Size = New System.Drawing.Size(208, 184) Me.Panel2.TabIndex = 11 " "Form1 " Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(464, 286) Me.Controls.Add(Me.Panel2) Me.Controls.Add(Me.Panel1) Me.Controls.Add(Me.Button4) Me.Controls.Add(Me.Button3) Me.Controls.Add(Me.Button2) Me.ResumeLayout(False) End Sub Dim pic1, pic2 As Bitmap
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Panel2.Invalidate() End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click End End Sub Private Sub Panel1_Paint1(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint Dim g As Graphics = e.Graphics g.DrawImage(pic1, 0, 0) End Sub Private Sub Panel2_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel2.Paint Dim g As Graphics = e.Graphics Dim x As Integer = Panel2.Width Dim col As Color = New Color Dim pic4 As Bitmap pic4 = New Bitmap(x, x) Dim i, j As Integer For i = 0 To x - 1 For j = 0 To x - 1 col = pic2.GetPixel(i, j) pic4.SetPixel(x - i - 1, j, col) Next Next g.DrawImage(pic4, 0, 0) pic2 = New Bitmap(pic4) End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load Panel1.Height = Panel1.Width Panel2.Width = Panel1.Width Panel2.Height = Panel2.Width Dim pic As Image = Image.FromFile("YourFile.bmp") pic1 = New Bitmap(pic, Panel1.Width, Panel1.Height) pic2 = New Bitmap(pic1) End Sub
End Class</source>
Move an image and paint
<source lang="vbnet">Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms Imports System.Drawing.Imaging public class PanningFormDemo
public Shared Sub Main Application.Run(New PanningForm) End Sub
End class Public Class PanningForm
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If 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. Friend WithEvents upButton As System.Windows.Forms.Button Friend WithEvents panel1 As System.Windows.Forms.Panel Friend WithEvents downButton As System.Windows.Forms.Button Friend WithEvents leftButton As System.Windows.Forms.Button Friend WithEvents rightButton As System.Windows.Forms.Button <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.upButton = New System.Windows.Forms.Button() Me.panel1 = New System.Windows.Forms.Panel() Me.downButton = New System.Windows.Forms.Button() Me.leftButton = New System.Windows.Forms.Button() Me.rightButton = New System.Windows.Forms.Button() Me.SuspendLayout() " "upButton " Me.upButton.Anchor = System.Windows.Forms.AnchorStyles.Top Me.upButton.Location = New System.Drawing.Point(132, 10) Me.upButton.Name = "upButton" Me.upButton.Size = New System.Drawing.Size(24, 23) Me.upButton.TabIndex = 5 Me.upButton.Text = "^" " "panel1 " Me.panel1.Anchor = (((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right) Me.panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.panel1.Location = New System.Drawing.Point(36, 43) Me.panel1.Name = "panel1" Me.panel1.Size = New System.Drawing.Size(216, 184) Me.panel1.TabIndex = 2 " "downButton " Me.downButton.Anchor = System.Windows.Forms.AnchorStyles.Bottom Me.downButton.Location = New System.Drawing.Point(132, 234) Me.downButton.Name = "downButton" Me.downButton.Size = New System.Drawing.Size(24, 23) Me.downButton.TabIndex = 6 Me.downButton.Text = "v" " "leftButton " Me.leftButton.Anchor = System.Windows.Forms.AnchorStyles.Left Me.leftButton.Location = New System.Drawing.Point(6, 124) Me.leftButton.Name = "leftButton" Me.leftButton.Size = New System.Drawing.Size(24, 23) Me.leftButton.TabIndex = 3 Me.leftButton.Text = "<" " "rightButton " Me.rightButton.Anchor = System.Windows.Forms.AnchorStyles.Right Me.rightButton.Location = New System.Drawing.Point(262, 124) Me.rightButton.Name = "rightButton" Me.rightButton.Size = New System.Drawing.Size(24, 23) Me.rightButton.TabIndex = 4 Me.rightButton.Text = ">" " "PanningForm " Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(292, 266) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.upButton, Me.panel1, Me.downButton, Me.leftButton, Me.rightButton}) Me.Name = "PanningForm" Me.Text = "PanningForm" Me.ResumeLayout(False) End Sub
- End Region
Dim bmp As Bitmap = New Bitmap("yourfile.jpg") Dim offset As Size = New Size(0, 0) Private Sub panel1_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles panel1.Paint Dim g As Graphics = e.Graphics Dim destRect As Rectangle = Me.panel1.ClientRectangle Dim srcRect As Rectangle = New Rectangle(offset.Width, offset.Height, destRect.Width, destRect.Height) g.DrawImage(bmp, destRect, srcRect, g.PageUnit) End Sub Private Sub upButton_Click(ByVal sender As Object, ByVal e As EventArgs) Handles upButton.Click offset.Height = offset.Height + 10 panel1.Refresh() End Sub Private Sub downButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles downButton.Click offset.Height = offset.Height - 10 panel1.Refresh() End Sub Private Sub rightButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rightButton.Click offset.Width = offset.Width + 10 panel1.Refresh() End Sub Private Sub leftButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles leftButton.Click offset.Width = offset.Width - 10 panel1.Refresh() End Sub
End Class</source>
Rotate an Image
<source lang="vbnet">Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class RotateImage
public Shared Sub Main Application.Run(New Form1) End Sub
End class Public Class Form1
Inherits System.Windows.Forms.Form Public Sub New() MyBase.New() InitializeComponent() End Sub Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub Private components As System.ruponentModel.IContainer Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents Button3 As System.Windows.Forms.Button Friend WithEvents Button4 As System.Windows.Forms.Button Friend WithEvents Panel1 As System.Windows.Forms.Panel Friend WithEvents Panel2 As System.Windows.Forms.Panel <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.Button2 = New System.Windows.Forms.Button Me.Button4 = New System.Windows.Forms.Button Me.Panel1 = New System.Windows.Forms.Panel Me.Panel2 = New System.Windows.Forms.Panel Me.SuspendLayout() " "Button2 " Me.Button2.Location = New System.Drawing.Point(88, 232) Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(64, 24) Me.Button2.TabIndex = 3 Me.Button2.Text = "Rotate" " "Button4 " Me.Button4.Location = New System.Drawing.Point(328, 232) Me.Button4.Name = "Button4" Me.Button4.Size = New System.Drawing.Size(56, 24) Me.Button4.TabIndex = 5 Me.Button4.Text = "Exit" " "Panel1 " Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.Panel1.Location = New System.Drawing.Point(24, 16) Me.Panel1.Name = "Panel1" Me.Panel1.Size = New System.Drawing.Size(200, 184) Me.Panel1.TabIndex = 10 " "Panel2 " Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.Panel2.Location = New System.Drawing.Point(248, 16) Me.Panel2.Name = "Panel2" Me.Panel2.Size = New System.Drawing.Size(208, 184) Me.Panel2.TabIndex = 11 " "Form1 " Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(464, 286) Me.Controls.Add(Me.Panel2) Me.Controls.Add(Me.Panel1) Me.Controls.Add(Me.Button4) Me.Controls.Add(Me.Button3) Me.Controls.Add(Me.Button2) Me.ResumeLayout(False) End Sub Dim pic1, pic2 As Bitmap
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Panel2.Invalidate() End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click End End Sub Private Sub Panel1_Paint1(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint Dim g As Graphics = e.Graphics g.DrawImage(pic1, 0, 0) End Sub Private Sub Panel2_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel2.Paint Dim g As Graphics = e.Graphics Dim x As Integer = Panel2.Width Dim col As Color = New Color Dim pic3 As Bitmap pic3 = New Bitmap(x, x) Dim i, j As Integer For i = 0 To x - 1 For j = 0 To x - 1 col = pic2.GetPixel(i, j) pic3.SetPixel(i, x - 1 - j, col) Next Next g.DrawImage(pic3, 0, 0) pic2 = New Bitmap(pic3) End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load Panel1.Height = Panel1.Width Panel2.Width = Panel1.Width Panel2.Height = Panel2.Width Dim pic As Image = Image.FromFile("YourFile.bmp") pic1 = New Bitmap(pic, Panel1.Width, Panel1.Height) pic2 = New Bitmap(pic1) End Sub
End Class</source>
Scale an image
<source lang="vbnet">Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms Imports System.Drawing.Imaging public class ScalingClippingFormDemo
public Shared Sub Main Application.Run(New ScalingClippingForm) End Sub
End class
Public Class ScalingClippingForm
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call Me.SetStyle(ControlStyles.ResizeRedraw, True) Me.SetStyle(ControlStyles.DoubleBuffer, True) Me.SetStyle(ControlStyles.AllPaintingInWmPaint, True) End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If 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. Friend WithEvents splitter1 As System.Windows.Forms.Splitter Friend WithEvents groupBox1 As System.Windows.Forms.GroupBox Friend WithEvents panel1 As System.Windows.Forms.Panel Friend WithEvents groupBox2 As System.Windows.Forms.GroupBox Friend WithEvents panel2 As System.Windows.Forms.Panel <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.splitter1 = New System.Windows.Forms.Splitter() Me.groupBox1 = New System.Windows.Forms.GroupBox() Me.panel1 = New System.Windows.Forms.Panel() Me.groupBox2 = New System.Windows.Forms.GroupBox() Me.panel2 = New System.Windows.Forms.Panel() Me.groupBox1.SuspendLayout() Me.groupBox2.SuspendLayout() Me.SuspendLayout() " "splitter1 " Me.splitter1.Location = New System.Drawing.Point(184, 0) Me.splitter1.Name = "splitter1" Me.splitter1.Size = New System.Drawing.Size(3, 182) Me.splitter1.TabIndex = 4 Me.splitter1.TabStop = False " "groupBox1 " Me.groupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.panel1}) Me.groupBox1.Dock = System.Windows.Forms.DockStyle.Left Me.groupBox1.Name = "groupBox1" Me.groupBox1.Size = New System.Drawing.Size(184, 182) Me.groupBox1.TabIndex = 3 Me.groupBox1.TabStop = False Me.groupBox1.Text = "Scaling" " "panel1 " Me.panel1.BackColor = System.Drawing.Color.White Me.panel1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.panel1.Dock = System.Windows.Forms.DockStyle.Fill Me.panel1.Location = New System.Drawing.Point(3, 16) Me.panel1.Name = "panel1" Me.panel1.Size = New System.Drawing.Size(178, 163) Me.panel1.TabIndex = 0 " "groupBox2 " Me.groupBox2.Controls.AddRange(New System.Windows.Forms.Control() {Me.panel2}) Me.groupBox2.Dock = System.Windows.Forms.DockStyle.Fill Me.groupBox2.Name = "groupBox2" Me.groupBox2.Size = New System.Drawing.Size(392, 182) Me.groupBox2.TabIndex = 5 Me.groupBox2.TabStop = False Me.groupBox2.Text = "Clipping" " "panel2 " Me.panel2.BackColor = System.Drawing.Color.White Me.panel2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.panel2.Dock = System.Windows.Forms.DockStyle.Fill Me.panel2.Location = New System.Drawing.Point(3, 16) Me.panel2.Name = "panel2" Me.panel2.Size = New System.Drawing.Size(386, 163) Me.panel2.TabIndex = 0 " "ScalingClippingForm " Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(392, 182) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.splitter1, Me.groupBox1, Me.groupBox2}) Me.Name = "ScalingClippingForm" Me.Text = "ScalingClippingFor" Me.groupBox1.ResumeLayout(False) Me.groupBox2.ResumeLayout(False) Me.ResumeLayout(False) End Sub
- End Region
Private Sub panel1_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles panel1.Paint Dim g As Graphics = e.Graphics Dim bmp As Bitmap = New Bitmap("yourfile.jpg") Dim rect As Rectangle = New Rectangle(10, 10, Me.panel1.ClientRectangle.Width - 20, Me.panel1.ClientRectangle.Height - 20) g.DrawImage(bmp, rect) g.DrawRectangle(Pens.Black, rect) End Sub
End Class</source>
Scale image with different Graphics Units
<source lang="vbnet">Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms Imports System.Drawing.Imaging public class ScalingClippingUnit
public Shared Sub Main Application.Run(New ScalingClippingForm) End Sub
End class
Public Class ScalingClippingForm
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call Me.SetStyle(ControlStyles.ResizeRedraw, True) Me.SetStyle(ControlStyles.DoubleBuffer, True) Me.SetStyle(ControlStyles.AllPaintingInWmPaint, True) End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If 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. Friend WithEvents splitter1 As System.Windows.Forms.Splitter Friend WithEvents groupBox1 As System.Windows.Forms.GroupBox Friend WithEvents panel1 As System.Windows.Forms.Panel Friend WithEvents groupBox2 As System.Windows.Forms.GroupBox Friend WithEvents panel2 As System.Windows.Forms.Panel <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.splitter1 = New System.Windows.Forms.Splitter() Me.groupBox1 = New System.Windows.Forms.GroupBox() Me.panel1 = New System.Windows.Forms.Panel() Me.groupBox2 = New System.Windows.Forms.GroupBox() Me.panel2 = New System.Windows.Forms.Panel() Me.groupBox1.SuspendLayout() Me.groupBox2.SuspendLayout() Me.SuspendLayout() " "splitter1 " Me.splitter1.Location = New System.Drawing.Point(184, 0) Me.splitter1.Name = "splitter1" Me.splitter1.Size = New System.Drawing.Size(3, 182) Me.splitter1.TabIndex = 4 Me.splitter1.TabStop = False " "groupBox1 " Me.groupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.panel1}) Me.groupBox1.Dock = System.Windows.Forms.DockStyle.Left Me.groupBox1.Name = "groupBox1" Me.groupBox1.Size = New System.Drawing.Size(184, 182) Me.groupBox1.TabIndex = 3 Me.groupBox1.TabStop = False Me.groupBox1.Text = "Scaling" " "panel1 " Me.panel1.BackColor = System.Drawing.Color.White Me.panel1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.panel1.Dock = System.Windows.Forms.DockStyle.Fill Me.panel1.Location = New System.Drawing.Point(3, 16) Me.panel1.Name = "panel1" Me.panel1.Size = New System.Drawing.Size(178, 163) Me.panel1.TabIndex = 0 " "groupBox2 " Me.groupBox2.Controls.AddRange(New System.Windows.Forms.Control() {Me.panel2}) Me.groupBox2.Dock = System.Windows.Forms.DockStyle.Fill Me.groupBox2.Name = "groupBox2" Me.groupBox2.Size = New System.Drawing.Size(392, 182) Me.groupBox2.TabIndex = 5 Me.groupBox2.TabStop = False Me.groupBox2.Text = "Clipping" " "panel2 " Me.panel2.BackColor = System.Drawing.Color.White Me.panel2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.panel2.Dock = System.Windows.Forms.DockStyle.Fill Me.panel2.Location = New System.Drawing.Point(3, 16) Me.panel2.Name = "panel2" Me.panel2.Size = New System.Drawing.Size(386, 163) Me.panel2.TabIndex = 0 " "ScalingClippingForm " Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(392, 182) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.splitter1, Me.groupBox1, Me.groupBox2}) Me.Name = "ScalingClippingForm" Me.Text = "ScalingClippingFor" Me.groupBox1.ResumeLayout(False) Me.groupBox2.ResumeLayout(False) Me.ResumeLayout(False) End Sub
- End Region
Private Sub panel1_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles panel1.Paint Dim g As Graphics = e.Graphics Dim bmp As Bitmap = New Bitmap("yourfile.jpg") Dim destRect As Rectangle = New Rectangle(10, 10, Me.panel2.ClientRectangle.Width - 20, Me.panel2.ClientRectangle.Height - 20) Dim srcRect As Rectangle = New Rectangle(0, 0, destRect.Width, destRect.Height) g.DrawImage(bmp, destRect, srcRect, g.PageUnit) g.DrawRectangle(Pens.Black, destRect) End Sub
End Class</source>
Skew an Image
<source lang="vbnet">Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class SkewImage
public Shared Sub Main Application.Run(New Form1) End Sub
End class public class Form1
Inherits System.Windows.Forms.Form Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs) Dim curImage As Image = Image.FromFile("yourfile.jpg") e.Graphics.Clear(Me.BackColor) Dim pts As Point() = {New Point(150, 20), New Point(20, 50), New Point(150, 300)} e.Graphics.DrawImage(curImage, pts) End Sub Public Sub New() MyBase.New() Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(292, 273) Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen End Sub
End Class</source>
Skew image
<source lang="vbnet">Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class SkewingDemo
public Shared Sub Main Application.Run(New SkewingForm) End Sub
End class
Public Class SkewingForm
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If 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. Friend WithEvents upButton As System.Windows.Forms.Button Friend WithEvents panel1 As System.Windows.Forms.Panel Friend WithEvents downButton As System.Windows.Forms.Button Friend WithEvents leftButton As System.Windows.Forms.Button Friend WithEvents rightButton As System.Windows.Forms.Button <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.upButton = New System.Windows.Forms.Button() Me.panel1 = New System.Windows.Forms.Panel() Me.downButton = New System.Windows.Forms.Button() Me.leftButton = New System.Windows.Forms.Button() Me.rightButton = New System.Windows.Forms.Button() Me.SuspendLayout() " "upButton " Me.upButton.Anchor = System.Windows.Forms.AnchorStyles.Top Me.upButton.Location = New System.Drawing.Point(132, 10) Me.upButton.Name = "upButton" Me.upButton.Size = New System.Drawing.Size(24, 23) Me.upButton.TabIndex = 5 Me.upButton.Text = "^" " "panel1 " Me.panel1.Anchor = (((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right) Me.panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.panel1.Location = New System.Drawing.Point(36, 43) Me.panel1.Name = "panel1" Me.panel1.Size = New System.Drawing.Size(216, 184) Me.panel1.TabIndex = 2 " "downButton " Me.downButton.Anchor = System.Windows.Forms.AnchorStyles.Bottom Me.downButton.Location = New System.Drawing.Point(132, 234) Me.downButton.Name = "downButton" Me.downButton.Size = New System.Drawing.Size(24, 23) Me.downButton.TabIndex = 6 Me.downButton.Text = "v" " "leftButton " Me.leftButton.Anchor = System.Windows.Forms.AnchorStyles.Left Me.leftButton.Location = New System.Drawing.Point(6, 124) Me.leftButton.Name = "leftButton" Me.leftButton.Size = New System.Drawing.Size(24, 23) Me.leftButton.TabIndex = 3 Me.leftButton.Text = "<" " "rightButton " Me.rightButton.Anchor = System.Windows.Forms.AnchorStyles.Right Me.rightButton.Location = New System.Drawing.Point(262, 124) Me.rightButton.Name = "rightButton" Me.rightButton.Size = New System.Drawing.Size(24, 23) Me.rightButton.TabIndex = 4 Me.rightButton.Text = ">" " "SkewingForm " Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(292, 266) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.upButton, Me.panel1, Me.downButton, Me.leftButton, Me.rightButton}) Me.Name = "SkewingForm" Me.Text = "SkewingForm" Me.ResumeLayout(False) End Sub
- End Region
Dim bmp As Bitmap = New Bitmap("yourfile.jpg") Dim offset As Size = New Size(0, 0) Private Sub panel1_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles panel1.Paint Dim g As Graphics = e.Graphics Dim rect As Rectangle = Me.panel1.ClientRectangle Dim points As Point() = New Point() { _ New Point(rect.Left + offset.Width, rect.Top + offset.Height), _ New Point(rect.Right, rect.Top + offset.Height), _ New Point(rect.Left, rect.Bottom - offset.Height)} g.DrawImage(bmp, points) End Sub Private Sub upButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles upButton.Click offset.Height = offset.Height + 10 panel1.Refresh() End Sub
Private Sub leftButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles leftButton.Click offset.Width = offset.Width - 10 panel1.Refresh() End Sub Private Sub downButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles downButton.Click offset.Height = offset.Height - 10 panel1.Refresh() End Sub Private Sub rightButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rightButton.Click offset.Width = offset.Width + 10 panel1.Refresh() End Sub
End Class</source>
Zoom and Skew an Image
<source lang="vbnet">Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class ZoomImageAndSkew
public Shared Sub Main Application.Run(New Form1) End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form Private curImage As Image Private imgHeight As Single Private imgWidth As Single Private menuItem12 As System.Windows.Forms.MenuItem Private curFileName As String
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If 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. Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem Friend WithEvents OpenFileMenu As System.Windows.Forms.MenuItem Friend WithEvents Zoom25Menu As System.Windows.Forms.MenuItem Friend WithEvents Zoom50Menu As System.Windows.Forms.MenuItem Friend WithEvents Zoom100Menu As System.Windows.Forms.MenuItem Friend WithEvents Zoom200Menu As System.Windows.Forms.MenuItem Friend WithEvents Zoom500Menu As System.Windows.Forms.MenuItem Friend WithEvents Skewing25Menu As System.Windows.Forms.MenuItem Friend WithEvents Skewing50Menu As System.Windows.Forms.MenuItem <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.MainMenu1 = New System.Windows.Forms.MainMenu Me.MenuItem1 = New System.Windows.Forms.MenuItem Me.MenuItem2 = New System.Windows.Forms.MenuItem Me.MenuItem3 = New System.Windows.Forms.MenuItem Me.OpenFileMenu = New System.Windows.Forms.MenuItem Me.Zoom25Menu = New System.Windows.Forms.MenuItem Me.Zoom50Menu = New System.Windows.Forms.MenuItem Me.Zoom100Menu = New System.Windows.Forms.MenuItem Me.Zoom200Menu = New System.Windows.Forms.MenuItem Me.Zoom500Menu = New System.Windows.Forms.MenuItem Me.Skewing25Menu = New System.Windows.Forms.MenuItem Me.Skewing50Menu = New System.Windows.Forms.MenuItem " "MainMenu1 " Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem2, Me.MenuItem3}) " "MenuItem1 " Me.MenuItem1.Index = 0 Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.OpenFileMenu}) Me.MenuItem1.Text = "File" " "MenuItem2 " Me.MenuItem2.Index = 1 Me.MenuItem2.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.Zoom25Menu, Me.Zoom50Menu, Me.Zoom100Menu, Me.Zoom200Menu, Me.Zoom500Menu}) Me.MenuItem2.Text = "Zoom" " "MenuItem3 " Me.MenuItem3.Index = 2 Me.MenuItem3.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.Skewing25Menu, Me.Skewing50Menu}) Me.MenuItem3.Text = "Skewing" " "OpenFileMenu " Me.OpenFileMenu.Index = 0 Me.OpenFileMenu.Text = "Open File" " "Zoom25Menu " Me.Zoom25Menu.Index = 0 Me.Zoom25Menu.Text = "25%" " "Zoom50Menu " Me.Zoom50Menu.Index = 1 Me.Zoom50Menu.Text = "50%" " "Zoom100Menu " Me.Zoom100Menu.Index = 2 Me.Zoom100Menu.Text = "100%" " "Zoom200Menu " Me.Zoom200Menu.Index = 3 Me.Zoom200Menu.Text = "200%" " "Zoom500Menu " Me.Zoom500Menu.Index = 4 Me.Zoom500Menu.Text = "500%" " "Skewing25Menu " Me.Skewing25Menu.Index = 0 Me.Skewing25Menu.Text = "25%" " "Skewing50Menu " Me.Skewing50Menu.Index = 1 Me.Skewing50Menu.Text = "50%" " "Form1 " Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(496, 378) Me.Menu = Me.MainMenu1 Me.Name = "Form1" Me.Text = "Scaling" End Sub
- End Region
Private Sub OpenFileMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenFileMenu.Click curImage = Image.FromFile("yourfile.jpg") imgHeight = curImage.Height imgWidth = curImage.Width Invalidate() End Sub Private Sub Zoom25Menu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Zoom25Menu.Click imgHeight = imgHeight * 25 / 100 imgWidth = imgWidth * 25 / 100 Invalidate() End Sub Private Sub Zoom50Menu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Zoom50Menu.Click imgHeight = imgHeight * 50 / 100 imgWidth = imgWidth * 50 / 100 Invalidate() End Sub Private Sub Zoom100Menu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Zoom100Menu.Click imgHeight = imgHeight imgWidth = imgWidth Invalidate() End Sub Private Sub Zoom200Menu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Zoom200Menu.Click imgHeight = imgHeight * 200 / 100 imgWidth = imgWidth * 200 / 100 Invalidate() End Sub Private Sub Zoom500Menu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Zoom500Menu.Click imgHeight = imgHeight * 500 / 100 imgWidth = imgWidth * 500 / 100 Invalidate() End Sub Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs) If Not (curImage Is Nothing) Then e.Graphics.DrawImage(curImage, AutoScrollPosition.X, AutoScrollPosition.Y, imgWidth, imgHeight) End If End Sub Private Sub Skewing25Menu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Skewing25Menu.Click Dim g As Graphics = Me.CreateGraphics() g.Clear(Me.BackColor) Dim pts As Point() = {New Point(150, 20), New Point(20, 50), New Point(150, 300)} g.DrawImage(curImage, pts) g.Dispose() End Sub
End Class</source>
Zoom Image
<source lang="vbnet">Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class ZoomImage
public Shared Sub Main Application.Run(New Form1) End Sub
End class public class Form1
Inherits System.Windows.Forms.Form Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs) Dim newImage As Image = Image.FromFile("yourfile.jpg") e.Graphics.DrawImage(newImage, New Rectangle(0, 0, 100, 100)) End Sub Public Sub New() MyBase.New() Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(292, 273) Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen End Sub
End Class</source>