Mega Code Archive
Bitmap GetPixel
<![CDATA[
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
]]>