Bitmap.GetPixel : Bitmap « System.Drawing « VB.Net by API

1. VB.Net by API
2. System.Drawing
3. Bitmap

Bitmap.GetPixel

  


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

   
    
  

Related examples in the same category