Admin: 1 версия

2010-05-26T12:49:50Z

1 версия

Новая страница

==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>

VB.Net by API/System.Drawing/Bitmap - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)