Handling Picture Using Picture Box. - Visual Basic 4 / 5 / 6

8,127 Expert 4TB

Add two picture boxes to a form.

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

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

Expand|Select|Wrap|Line Numbers

 
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
--------------------------------------

Expand|Select|Wrap|Line Numbers

 
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
--------------------------------------

Expand|Select|Wrap|Line Numbers

 
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
--------------------------------------

Expand|Select|Wrap|Line Numbers

 
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
--------------------------------------

Expand|Select|Wrap|Line Numbers

 
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
--------------------------------------

Expand|Select|Wrap|Line Numbers

 
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
--------------------------------------

Expand|Select|Wrap|Line Numbers

 
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
--------------------------------------

Expand|Select|Wrap|Line Numbers

 
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
--------------------------------------

Expand|Select|Wrap|Line Numbers

 
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
--------------------------------------

Expand|Select|Wrap|Line Numbers

 
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

Oct 27 '07 #1

Subscribe Post Reply

7213

Similar topics

picture boxes, labels, and transparency

by: Chris Coho, Jr. | last post by:

Ok, I'll explain the whole problem because there may be several ways to solve this and hopefully someone knows one. What I'm doing is creating a specialty template editor, similar to say a corel...

Visual Basic 4 / 5 / 6

canonical way for handling raw data

by: Matthias Czapla | last post by:

Hi! Whats the canonical way for handling raw data. I want to read a file without making any assumption about its structure and store portions of it in memory and compare ranges with constant...

C / C++

Handling duplicate form submission

by: nick4soup | last post by:

I have read the CGI FAQ 'How can I avoid users hitting "submit" twice' (on http://www.htmlhelp.org/faq/cgifaq.3.html#19 ) which essentially says you have to detect it at the server, using a...

HTML / CSS

Image Handling Problems...

by: Matt | last post by:

Thank you for trying to help. I am a newbie trying to learn access. I am creating a database in access97 with few picture fields in it. After some research I decided to use the famous "External...

Microsoft Access / VBA

Handling Picture in Access Database

by: Ulrike | last post by:

I need to bind in (thumbnail-sized) pictures into an Access Database in such a way that there is one picture for each record (abt. 3000 records on the whole). Ideally, the pictures should show on...

Microsoft Access / VBA

Embedding Picture problem

by: Lyn | last post by:

I am trying to embed a picture into a Bound Object Frame (Me!Photograph) with the following code which is based on MS article http://support.microsoft.com/?id=158941: strPathname =...

Microsoft Access / VBA

Handling images in a database

by: Robert | last post by:

I am creating a database that will have a large number of images in it and I would like some input as to the best way to handle them. Each record in my database will have a one-to-many...

Microsoft Access / VBA

Why leave the error handling to the caller?

by: Chad | last post by:

On to top of page 163 in the book "The C Programming Langauge" by K & R, they have the following: char *strdup(char *s) { char *p; p=(char *)malloc(strlen(s)+1); if( p != NULL) strcpy(p,s):...

C / C++

abstraction level of error handling

by: nguyenminhhai | last post by:

Hi everyone, I'm reading "The C++ Programming Language" (Bjarne Stroustrup, 3rd edition). At page 193, he said "Doing error handling using the same level of abstraction as the code that caused the...

C / C++

Navigating the Data Structures and Algorithms (DSA)

by: BarryA | last post by:

What are the essential steps and strategies outlined in the Data Structures and Algorithms (DSA) roadmap for aspiring data scientists? How can individuals effectively utilize this roadmap to progress...

Algorithms / Advanced Math

Looking to do Android software development, any suggestions? Is flutter better?

by: nemocccc | last post by:

hello, everyone, I want to develop a software for my android phone for daily needs, any suggestions?

General

Is that possible of reading the .csv file in column wise and the column have different lengths ?

by: Sonnysonu | last post by:

This is the data of csv file 1 2 3 1 2 3 1 2 3 1 2 3 2 3 2 3 3 the lengths should be different i have to store the data by column-wise with in the specific length. suppose the i have to...

C / C++

How to build RAID in BIOS?

by: Hystou | last post by:

There are some requirements for setting up RAID: 1. The motherboard and BIOS support RAID configuration. 2. The motherboard has 2 or more available SATA protocol SSD/HDD slots (including MSATA, M.2...

Computer Hardware

What is ONU?

by: marktang | last post by:

ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However,...

General

Problem With Comparison Operator <=> in G++

by: Oralloy | last post by:

Hello folks, I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>". The problem is that using the GNU compilers,...

C / C++

The easy way to turn off automatic updates for Windows 10/11

by: Hystou | last post by:

Overview: Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows...

Windows Server

AI Job Threat for Devs

by: agi2029 | last post by:

Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing,...

Career Advice

Couldn’t get equations in html when convert word .docx file to html file in C#.

by: conductexam | last post by:

I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and...

C# / C Sharp