VB.Net Tutorial/2D Graphics/Pixel

Set Pixel and get Pixel

<source lang="vbnet">Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class GetPixelSetPixel

  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 g As Graphics = Me.CreateGraphics()
       g.Clear(Me.BackColor)
       Dim curBitmap As New Bitmap("yourfile.jpg")
       g.DrawImage(curBitmap, 0, 0, curBitmap.Width, curBitmap.Height)
       Dim startTime As DateTime = DateTime.Now
       Dim i As Integer
       For i = 0 To 100
           Dim j As Integer
           For j = 0 To 200
               Dim curColor As Color = curBitmap.GetPixel(i, j)
               Dim ret As Integer = CInt((CInt(curColor.R) + CInt(curColor.G) + CInt(curColor.B)) / 3)
               curBitmap.SetPixel(i, j, Color.FromArgb(ret, ret, ret))
           Next j
       Next i
       g.DrawImage(curBitmap, 0, 0, curBitmap.Width, curBitmap.Height)
       g.Dispose()
 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>