Merging two pictureboxes into a new picturebox

Question

1.00/5 (1 vote)

See more:

I want merge two pictureboxes and provide a new picturebox in visual studio 2008

this code work for me but it doesn't keep the size of both the images.

VB

Dim image1 As New Bitmap(picbox1.Image)
Dim image2 As New Bitmap(picbox2.Image)
Dim Image3 As New Bitmap(483, 338)
Dim xcount, ycount as integer

Using g As Graphics = Graphics.FromImage(Image3)

    'make 2nd bmp translucent
    Dim xcount, ycount As Integer

    For xcount = 0 To image2.Width - 1
        For ycount = 0 To image2.Height - 1
            Dim c As Color = image2.GetPixel(xcount, ycount)
            c = Color.FromArgb(125, c.R, c.G, c.B) '50% alpha
            image2.SetPixel(xcount, ycount, c)
        Next
    Next

    g.DrawImage(image1, New Point(0, 0))

    g.DrawImage(image2, New Point(0, 0))

End Using

picbox3.Image = Image3

Any Help Please.

Posted 25-Jan-16 23:35pm

Engr. S.M. Inuwa

Add a Solution

Comments

glen205 26-Jan-16 6:44am

If I understand your code, it does this:
- copies image1 into image3
- overlays a 50% alpha copy of image 2 onto image 3
- the desired outcome is image 3 = a blend/overlay of the two?

Some questions then, about the meaning of your issue : "it doesn't keep the size of both the images".
- in what way is the size "lost" ?
- are your source images a different size to each other, or to the fixed 483x338 pixel output?
- have you tried changing the fixed size of image 3: instead of hard-coded pixel sizes, perhaps the size of image 3 could be X = Math.Max(image1.Width, image2.Witdh), Y = Math.Max(image1.Height, image2.Height). Then the output image is always as large as required to contain both images.

Richard MacCutchan 26-Jan-16 6:45am

Please explain what you mean by "but it doesn't keep the size of both the images.".

Engr. S.M. Inuwa 26-Jan-16 14:43pm

i mean, the picbox3 doesn't keep the width and the height of the copied images and fit the container even if the size of the picbox3 is more the size of the pixbox1 and pixbox2

Richard MacCutchan 26-Jan-16 15:19pm

Then you need to look at the sizes of both images that you start with and allow space for the larger of the two. Alternatively you can adjust the images to the same size.

Sinisa Hajnal 27-Jan-16 6:21am

Check zoom property of the picture box, maybe it just distorts it because it is set to stretch ...or zoom.

Also, you should either resize both images to target size before merging or create image3 based on max sizes of both images (as glen205 suggests) and resize final result.

Ralf Meier 26-Jan-16 6:46am

I don't get you ... what do you exactly want to do ?
Put one Image directly over the other ? What do you want to see as the remaining (new) Image ? Do one (or both) Images have transparent Background ?

Engr. S.M. Inuwa 4-Feb-16 11:41am

Thank you all i got it right

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Engr. S.M. Inuwa · Accepted Answer · 2016-02-04T07:19:00

this works for me

VB

Dim logo As New Bitmap(picturebox1.Image)
logo.MakeTransparent()

' Display the result.
picturebox1.Image = logo

' Copy the label onto the main picture.
Dim template As New Bitmap(picturebox2.Image)
Dim gr As Graphics = Graphics.FromImage(template)
gr.DrawImage(logo, template.Width - 2007, (template.Height - 1800) \ 6, 500, 450)

' Display the result.
picturebox2.Image = template

thank you