Handling Picture Using Picture Box.

[debasisdas]

Add two picture boxes to a form.

Set the ScaleMode property of both the pictureboxes to 3-Pixels.

General declaration
--------------------------------

Const ubx = 1000
Const uby = 500
Dim pixels(1 To ubx, 1 To uby) As Long
 

To copy picture from one picturebox to another pixel by pixel.
============================================

Add the following code
--------------------------------------

Private Sub CMDCOPY_Click()
Dim X As Integer, Y As Integer
For X = 1 To ubx
For Y = 1 To uby
pixels(X, Y) = Picture1.Point(X, Y)
Next Y
Next X
 
For X = 1 To ubx
For Y = 1 To uby
Picture2.PSet (X, Y), pixels(X, Y)
Next Y
Next X
End Sub
 
 

To copy a Gray Scale picture from one picturebox to another.
============================================

Add the following code
--------------------------------------

Private Sub CMDGRAY_Click()
Dim X As Integer, Y As Integer
Dim R As Integer, G As Integer, B As Integer, A As Integer
For X = 1 To ubx
For Y = 1 To uby
pixels(X, Y) = Picture1.Point(X, Y)
Next Y
Next X
 
For X = 1 To ubx
For Y = 1 To uby
R = pixels(X, Y) And &HFF
G = ((pixels(X, Y) And &HFF00) / &H100) Mod &H100
B = ((pixels(X, Y) And &HFF0000) / &H10000) Mod &H100
A = (R + G + B) / 3
pixels(X, Y) = RGB(A, A, A)
Next Y
Next X
For X = 1 To ubx
For Y = 1 To uby
Picture2.PSet (X, Y), pixels(X, Y)
Next Y
Next X
 
End Sub
 

To make an Embossed copy of the picture from one picturebox to another.
================================================== ====

Add the following code
--------------------------------------

Private Sub CMDEMBOSS_Click()
Dim X As Integer, Y As Integer
Dim R As Integer, G As Integer, B As Integer, A As Integer
 
 
For X = 1 To ubx
For Y = 1 To uby
pixels(X, Y) = Picture1.Point(X, Y)
Next Y
Next X
 
For X = ubx To 2 Step -1
For Y = uby To 2 Step -1
R = ((pixels(X - 1, Y - 1) And &HFF) - (pixels(X, Y) And &HFF)) + 128
G = (((pixels(X - 1, Y - 1) And &HFF00) / &H100) Mod &H100 - ((pixels(X, Y) And &HFF00) / &H100) Mod &H100) + 128
B = (((pixels(X - 1, Y - 1) And &HFF0000) / &H10000) Mod &H100 - ((pixels(X, Y) And &HFF0000) / &H10000) Mod &H100) + 128
 
A = Abs((R + G + B) / 3)
 
pixels(X, Y) = RGB(A, A, A)
 
Next Y
Next X
 
For X = 1 To ubx
For Y = 1 To uby
Picture2.PSet (X - 2, Y - 2), pixels(X, Y)
Next Y
Next X
 
End Sub
 

To make an Engraved copy of the picture from one picturebox to another.
================================================== ====

Add the following code
--------------------------------------

Private Sub CMDENGRAVE_Click()
Dim X As Integer, Y As Integer
Dim R As Integer, G As Integer, B As Integer, A As Integer
For X = 1 To ubx
For Y = 1 To uby
pixels(X, Y) = Picture1.Point(X, Y)
Next Y
Next X
 
For X = 2 To ubx Step -1
For Y = 2 To uby Step -1
R = ((pixels(X + 1, Y + 1) And &HFF) - (pixels(X, Y) And &HFF)) + 128
G = (((pixels(X + 1, Y + 1) And &HFF00) / &H100) Mod &H100 - ((pixels(X, Y) And &HFF00) / &H100) Mod &H100) + 128
B = (((pixels(X + 1, Y + 1) And &HFF0000) / &H10000) Mod &H100 - ((pixels(X, Y) And &HFF0000) / &H10000) Mod &H100) + 128
 
A = (R + G + B) / 3
pixels(X, Y) = RGB(A, A, A)
Next Y
Next X
For X = 1 To ubx
For Y = 1 To uby
Picture2.PSet (X, Y), pixels(X, Y)
Next Y
Next X
End Sub
 
 

To make a Blurred copy of the picture from one picturebox to another.
================================================== ==

Add the following code
--------------------------------------

Private Sub CMDBLUR_Click()
Dim X As Integer, Y As Integer
Dim R As Integer, G As Integer, B As Integer, A As Integer
For X = 1 To ubx
For Y = 1 To uby
pixels(X, Y) = Picture1.Point(X, Y)
Next Y
Next X
 
For X = 1 To ubx - 1
For Y = 1 To uby
R = Abs((pixels(X + 1, Y) And &HFF) + (pixels(X, Y) And &HFF)) / 2
G = Abs(((pixels(X + 1, Y) And &HFF00) / &H100) Mod &H100 + ((pixels(X, Y) And &HFF00) / &H100) Mod &H100) / 2
B = Abs(((pixels(X + 1, Y) And &HFF0000) / &H10000) Mod &H100 + ((pixels(X, Y) And &HFF0000) / &H10000) Mod &H100) / 2
 
pixels(X, Y) = RGB(R, G, B)
Next Y
Next X
For X = 1 To ubx
For Y = 1 To uby
Picture2.PSet (X, Y), pixels(X, Y)
Next Y
Next X
 
End Sub

To Sweep(look hazy) the image in one picturebox to another.
=============================================

Add the following code
--------------------------------------

Private Sub CMDSWEEP_Click()
Dim X As Integer, Y As Integer
Dim R As Integer, G As Integer, B As Integer, A As Integer
For X = 1 To ubx
For Y = 1 To uby
pixels(X, Y) = Picture1.Point(X, Y)
Next Y
Next X
 
For X = ubx - 1 To 1 Step -1
For Y = uby - 1 To 1 Step -1
R = Abs((pixels(X + 1, Y + 1) And &HFF) + (pixels(X, Y) And &HFF)) / 2
G = Abs(((pixels(X + 1, Y + 1) And &HFF00) / &H100) Mod &H100 + ((pixels(X, Y) And &HFF00) / &H100) Mod &H100) / 2
B = Abs(((pixels(X + 1, Y + 1) And &HFF0000) / &H10000) Mod &H100 + ((pixels(X, Y) And &HFF0000) / &H10000) Mod &H100) / 2
 
pixels(X, Y) = RGB(R, G, B)
Next Y
Next X
For X = 1 To ubx
For Y = 1 To uby
Picture2.PSet (X, Y), pixels(X, Y)
Next Y
Next X
 
End Sub
 

To copy the picture from reverse side.from one picturebox to another.
================================================== =

Add the following code
--------------------------------------

Private Sub CMDREVERSE_Click()
Dim X As Integer, Y As Integer
For X = 1 To ubx
For Y = 1 To uby
pixels(X, Y) = Picture1.Point(X, Y)
Next Y
Next X
 
For X = ubx To 1 Step -1
For Y = uby To 1 Step -1
Picture2.PSet (X, Y), pixels(X, Y)
Next Y
Next X
End Sub
 

To Flip the image from one picturebox in another.
====================================

Add the following code
--------------------------------------

Private Sub CMDFLIP_Click()
Picture2.PaintPicture Picture1.Picture, Picture1.ScaleWidth, 0, -1 * Picture1.ScaleWidth, Picture1.ScaleHeight
End Sub
 

To Remove the color from the image from one picturebox in another.
================================================== =
Add a text box to the form, to enter the value to remove color.

Add the following code
--------------------------------------

Private Sub CMDLIGHT_Click()
Dim X As Integer, Y As Integer, addon As Integer
addon = Val(Text1.Text)
Dim R As Integer, G As Integer, B As Integer
For X = 1 To ubx
For Y = 1 To uby
pixels(X, Y) = Picture1.Point(X, Y)
Next Y
Next X
 
For X = 1 To ubx
For Y = 1 To uby
R = pixels(X, Y) And &HFF
G = ((pixels(X, Y) And &HFF00) / &H100) Mod &H100
B = ((pixels(X, Y) And &HFF0000) / &H10000) Mod &H100
 
R = R + addon
If R > 255 Then R = 255
G = G + addon
If G > 255 Then G = 255
B = B + addon
If B > 255 Then B = 255
 
pixels(X, Y) = RGB(R, G, B)
Next Y
Next X
 
For X = 1 To ubx
For Y = 1 To uby
Picture2.PSet (X, Y), pixels(X, Y)
Next Y
Next X
End Sub