VB.Net by API/System.Drawing/Bitmap — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
|
(нет различий)
|
Текущая версия на 15:49, 26 мая 2010
Содержание
- 1 Bitmap.FromFile(String fileName)
- 2 Bitmap.GetPixel
- 3 Bitmap.GetPixel(Int x, Int y)
- 4 Bitmap.Height
- 5 Bitmap.MakeTransparent
- 6 Bitmap.Palette
- 7 Bitmap.PhysicalDimension
- 8 Bitmap.PixelFormat
- 9 Bitmap.Save(String fileName, ImageFormat if)
- 10 Bitmap.SetPixel(Int x, Int y, Color clr)
- 11 Bitmap.SetResolution(Single h, Single v)
- 12 Bitmap.VerticalResolution
- 13 Bitmap.Width
- 14 New Bitmap
- 15 New Bitmap(Int w, Int y)
- 16 New Bitmap(String fileName)
Bitmap.FromFile(String fileName)
<source lang="vbnet"> Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class SetResolutionBitmap
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 Bitmap = Bitmap.FromFile("yourfile.jpg") Dim hDpi As Single = 90 Dim vDpi As Single = 90 newImage.SetResolution(hDpi, vDpi) e.Graphics.DrawImage(newImage, Me.ClientRectangle) 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>
Bitmap.GetPixel
<source lang="vbnet">
Imports System Imports System.Windows.Forms Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Drawing.Text Imports System.Drawing.Imaging Public Class MainClass
Shared Sub Main() Dim form1 As Form1 = new Form1 Application.Run(form1) End Sub
End Class
Public Class Form1
Inherits System.Windows.Forms.Form Public Sub New() MyBase.New() Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(292, 273) Me.Text = "Form1" End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs) Dim bmp As Bitmap = New Bitmap("figure2.bmp") Dim c As Color Dim x, y As Int32 e.Graphics.DrawImage(bmp, 10, 30) For x = 0 To bmp.Width - 1 For y = 0 To bmp.Height - 1 c = bmp.GetPixel(x, y) c = Color.FromArgb(c.ToArgb() + 100) bmp.SetPixel(x, y, c) Next Next e.Graphics.DrawImage(bmp, 150, 30) End Sub
End Class
</source>
Bitmap.GetPixel(Int x, Int y)
<source lang="vbnet"> 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
</source>
Bitmap.Height
<source lang="vbnet"> Imports System Imports System.Windows.Forms Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Drawing.Text Imports System.Drawing.Imaging Public Class MainClass
Shared Sub Main() Dim Bmp As Bitmap = New Bitmap("figure2.bmp") Console.WriteLine(Bmp.Height.ToString()) Console.WriteLine(Bmp.Width.ToString()) Console.WriteLine(Bmp.VerticalResolution.ToString()) Console.WriteLine(Bmp.HorizontalResolution.ToString()) Console.WriteLine(Bmp.PixelFormat.ToString()) Console.WriteLine(Bmp.Size.ToString()) Console.WriteLine(Bmp.PhysicalDimension.ToString()) End Sub
End Class
</source>
Bitmap.MakeTransparent
<source lang="vbnet"> Imports System.Windows.Forms Imports System.Drawing Imports System.Drawing.Drawing2D public class MakeTransparentBitmap
public Shared Sub Main Application.Run(New Form1) End Sub
End class Public Class Form1
Inherits System.Windows.Forms.Form Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click Me.Close() End Sub Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint Dim bm As Bitmap = new Bitmap("yourfile.jpg") bm.MakeTransparent(bm.GetPixel(1, 1)) e.Graphics.DrawImage(bm, 0, 0) End Sub
End Class
</source>
Bitmap.Palette
<source lang="vbnet"> Imports System Imports System.Windows.Forms Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Drawing.Text Imports System.Drawing.Imaging Public Class MainClass
Shared Sub Main() Dim cp As ColorPalette Dim bmp As Bitmap = New Bitmap("figure2.bmp") cp = bmp.Palette Dim c As Color For Each c In cp.Entries Console.WriteLine( c.ToString()) Next End Sub
End Class
</source>
Bitmap.PhysicalDimension
<source lang="vbnet"> Imports System Imports System.Windows.Forms Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Drawing.Text Imports System.Drawing.Imaging Public Class MainClass
Shared Sub Main() Dim Bmp As Bitmap = New Bitmap("figure2.bmp") Console.WriteLine(Bmp.Height.ToString()) Console.WriteLine(Bmp.Width.ToString()) Console.WriteLine(Bmp.VerticalResolution.ToString()) Console.WriteLine(Bmp.HorizontalResolution.ToString()) Console.WriteLine(Bmp.PixelFormat.ToString()) Console.WriteLine(Bmp.Size.ToString()) Console.WriteLine(Bmp.PhysicalDimension.ToString()) End Sub
End Class
</source>
Bitmap.PixelFormat
<source lang="vbnet"> Imports System Imports System.Windows.Forms Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Drawing.Text Imports System.Drawing.Imaging Public Class MainClass
Shared Sub Main() Dim Bmp As Bitmap = New Bitmap("figure2.bmp") Console.WriteLine(Bmp.Height.ToString()) Console.WriteLine(Bmp.Width.ToString()) Console.WriteLine(Bmp.VerticalResolution.ToString()) Console.WriteLine(Bmp.HorizontalResolution.ToString()) Console.WriteLine(Bmp.PixelFormat.ToString()) Console.WriteLine(Bmp.Size.ToString()) Console.WriteLine(Bmp.PhysicalDimension.ToString()) End Sub
End Class
</source>
Bitmap.Save(String fileName, ImageFormat if)
<source lang="vbnet"> Imports System Imports System.Windows.Forms Imports System.Collections.Generic Imports System.ruponentModel Imports System.Drawing.Imaging Imports System.Drawing Public Class MainClass
Shared Sub Main() Dim bm As New Bitmap(256, 256) " Draw on it. Dim gr As Graphics = Graphics.FromImage(bm) gr.Clear(Color.White) gr.DrawEllipse(Pens.Red, 0, 0, bm.Width - 1, bm.Height - 1) gr.DrawLine(Pens.Green, 0, 0, bm.Width - 1, bm.Height - 1) gr.DrawLine(Pens.Blue, bm.Width - 1, 0, 0, bm.Height - 1) " Save the result as a JPEG file. bm.Save("test.gif", ImageFormat.Gif) End Sub
End Class
</source>
Bitmap.SetPixel(Int x, Int y, Color clr)
<source lang="vbnet"> 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
</source>
Bitmap.SetResolution(Single h, Single v)
<source lang="vbnet"> Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class SetResolutionBitmap
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 Bitmap = Bitmap.FromFile("yourfile.jpg") Dim hDpi As Single = 90 Dim vDpi As Single = 90 newImage.SetResolution(hDpi, vDpi) e.Graphics.DrawImage(newImage, Me.ClientRectangle) 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>
Bitmap.VerticalResolution
<source lang="vbnet"> Imports System Imports System.Windows.Forms Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Drawing.Text Imports System.Drawing.Imaging Public Class MainClass
Shared Sub Main() Dim Bmp As Bitmap = New Bitmap("figure2.bmp") Console.WriteLine(Bmp.Height.ToString()) Console.WriteLine(Bmp.Width.ToString()) Console.WriteLine(Bmp.VerticalResolution.ToString()) Console.WriteLine(Bmp.HorizontalResolution.ToString()) Console.WriteLine(Bmp.PixelFormat.ToString()) Console.WriteLine(Bmp.Size.ToString()) Console.WriteLine(Bmp.PhysicalDimension.ToString()) End Sub
End Class
</source>
Bitmap.Width
<source lang="vbnet"> 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
</source>
New Bitmap
<source lang="vbnet"> 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
</source>
New Bitmap(Int w, Int y)
<source lang="vbnet"> Imports System Imports System.Windows.Forms Imports System.Collections.Generic Imports System.ruponentModel Imports System.Drawing.Imaging Imports System.Drawing Public Class MainClass
Shared Sub Main() Dim bm As New Bitmap(256, 256) " Draw on it. Dim gr As Graphics = Graphics.FromImage(bm) gr.Clear(Color.White) gr.DrawEllipse(Pens.Red, 0, 0, bm.Width - 1, bm.Height - 1) gr.DrawLine(Pens.Green, 0, 0, bm.Width - 1, bm.Height - 1) gr.DrawLine(Pens.Blue, bm.Width - 1, 0, 0, bm.Height - 1) " Save the result as a JPEG file. bm.Save("test.Bmp", ImageFormat.Bmp) End Sub
End Class
</source>
New Bitmap(String fileName)
<source lang="vbnet">
Imports System Imports System.Windows.Forms Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Drawing.Text Imports System.Drawing.Imaging Public Class MainClass
Shared Sub Main() Dim form1 As Form1 = new Form1 Application.Run(form1) End Sub
End Class
Public Class Form1
Inherits System.Windows.Forms.Form Public Sub New() MyBase.New() Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(292, 273) Me.Text = "Form1" End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs) Dim bmp As Bitmap = New Bitmap("figure2.bmp") Dim c As Color Dim x, y As Int32 e.Graphics.DrawImage(bmp, 10, 30) For x = 0 To bmp.Width - 1 For y = 0 To bmp.Height - 1 c = bmp.GetPixel(x, y) c = Color.FromArgb(c.ToArgb() + 100) bmp.SetPixel(x, y, c) Next Next e.Graphics.DrawImage(bmp, 150, 30) End Sub
End Class
</source>