Replace all instances of a color in a picturebox

[Shane Stewart]

I've created a user control inheriting a picturebox. I want to set a
non-rectangular area to the current system color.control.

I'm looking for either a "fill" command that will set all contiguous
pixels of the same color to a new color, or possibly a command that
changes all pixels of a color to a new color; the only instance of
color.control in the picture is in the background area.

There is a C# edge detection routine that I found on bobpowell.net
(which is an excellent graphics source)so that I could probably use to
build a fill path, but I figure that there must be an easier way.

Thanks in advance.

[Herfried K. Wagner [MVP]]

"Shane Stewart" <sh***********@ yahoo.com> schrieb:

I've created a user control inheriting a picturebox. I want to set a
non-rectangular area to the current system color.control.

I'm looking for either a "fill" command that will set all contiguous
pixels of the same color to a new color, or possibly a command that
changes all pixels of a color to a new color; the only instance of
color.control in the picture is in the background area.

Create a 'Bitmap' object of appropriate size, obtain a 'Graphics' object
using 'Graphics.FromI mage', fill the image in the desired color, call
'MakeTransparen t' on the source bitmap in order to make the pixels filled
with the color that should be replaced transparent. Then use the 'Graphics'
object's 'DrawImage' method to draw the transparent bitmap ontp the
destination bitmap. Call the bitmaps 'Save' method in order to save the
file to disk, or display it using a picturebox control.

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

[Zoury]

Hi folks ! :O)

I ain't know much about GDI+ yet so I'd like your input about this code. ie.
is there any speed and/or memory issues ?

This sample change to black any color the user clicks.
'***
Option Explicit On

Imports System.Drawing
Imports System.Drawing. Imaging
Imports System.Runtime. InteropServices

Public Class Form1
Inherits System.Windows. Forms.Form

<DllImport("gdi 32.dll")> _
Public Shared Function BitBlt( _
ByVal hdcDest As IntPtr, _
ByVal nXDest As Int32, _
ByVal nYDest As Int32, _
ByVal nWidth As Int32, _
ByVal nHeight As Int32, _
ByVal hdcSrc As IntPtr, _
ByVal nXSrc As Int32, _
ByVal nYSrc As Int32, _
ByVal dwRop As Int32 _
) As Boolean
End Function
Private Shared ReadOnly SRCCOPY As Int32 = &HCC0020

' Windows Designer's generated code region goes here

Protected Overrides Sub OnPaint(ByVal e As
System.Windows. Forms.PaintEven tArgs)

MyBase.OnPaint( e)

' draw something
e.Graphics.Fill Rectangle(Brush es.Maroon, 10, 10, 100, 100)
e.Graphics.Fill Ellipse(Brushes .Blue, 10, 10, 100, 100)
e.Graphics.Fill Ellipse(Brushes .DarkBlue, 20, 20, 80, 80)
e.Graphics.Fill Rectangle(Brush es.Coral, 75, 75, 50, 50)

End Sub

Private Sub Form1_MouseDown (ByVal sender As Object, ByVal e As
System.Windows. Forms.MouseEven tArgs) Handles MyBase.MouseDow n

Dim bmp As Bitmap = CreateBitmapFro mControl(Me)
Dim nSearchCol As Int32 = bmp.GetPixel(e. X, e.Y).ToArgb()
Dim nReplaceCol As Int32 = Color.Black.ToA rgb()
Dim bd As BitmapData = bmp.LockBits(Ne w Rectangle(0, 0, bmp.Width,
bmp.Height), Imaging.ImageLo ckMode.ReadWrit e, bmp.PixelFormat )

' loop through the bitmap data and replace
' the matching pixels with black
For i As Int32 = 0 To (bd.Stride * bd.Height) - 1 Step
Marshal.SizeOf( GetType(Int32))
If (Marshal.ReadIn t32(bd.Scan0, i) = nSearchCol) Then
Marshal.WriteIn t32(bd.Scan0, i, nReplaceCol)
End If
Next

bmp.UnlockBits( bd)
Me.CreateGraphi cs().DrawImage( Image.FromHbitm ap(bmp.GetHbitm ap()),
0, 0)

End Sub

Private Function CreateBitmapFro mControl(ByVal ctl As Control) As Bitmap

Dim gCtl As Graphics = ctl.CreateGraph ics()
Dim bmp As Bitmap = New Bitmap(ctl.Clie ntRectangle.Wid th,
ctl.ClientRecta ngle.Height, gCtl)
Dim gMem As Graphics = Graphics.FromIm age(bmp)
Dim hCtlHDC As IntPtr = gCtl.GetHdc()
Dim hMemHDC As IntPtr = gMem.GetHdc()

BitBlt(hMemHDC, 0, 0, ctl.ClientRecta ngle.Width,
ctl.ClientRecta ngle.Height, hCtlHDC, 0, 0, SRCCOPY)

gCtl.ReleaseHdc (hCtlHDC)
gMem.ReleaseHdc (hMemHDC)

Return bmp

End Function

End Class
'***
--
Best Regards
Yanick