[RESOLVED] [2008] Border for images

[Xancholy]

I need to thumbnail an image and add a border like this to thumbnail using code.

Can anyone help me with how this is done ?

[chris128]

Does it have to be that exact border? You can set the BorderStyle property of your picturebox control to FixedSingle if you just want to add a thin black border

[Xancholy]

No, I know what you mean but I'm trying to add a custom filmstrip border to an image like this:

[chris128]

Erm the only way I can think of doing it is by laying the picture box with your thumbnail image in over the top of the picturebox that has the filmstrip border in but thats a bad and probably unreliable way of doing it so wait and see if anyone else has a better idea (im sure they will do)

[gnaver]

draw the border image to the picturebox using GDI, and then draw the thumb image on top on it also using GDI ...

[Xancholy]

draw the border image to the picturebox using GDI, and then draw the thumb image on top on it also using GDI ...

Smoking cool. How ?

Can I also save the gdi image as another image say, imagewithborder.jpg/bmp/etc

[gnaver]

yep you can do that

heres an quick example::

Dim img As New Bitmap(200, 200)
        Dim g As Graphics = Graphics.FromImage(img)
        g.DrawImage(New Bitmap("c:\border.jpg"), New Rectangle(0, 0, 200, 200))
        g.DrawImage(New Bitmap("c:\image.jpg"), New Rectangle(20, 20, 160, 160))
        'SHOW THE NEW IMAGE
        PictureBox1.Image = img
        'Saves the image
        img.Save("c:\newimage.jpg")

[Xancholy]

Super cool. I guess I don't really need the picture box ? I can just comment out that line and just get gdi to overlay picture on border and save to new image, right ?

[chris128]

wow I never knew GDI stuff could be that simple, thanks for the example gnaver

[Xancholy]

Yes gnaver, where have you been hiding. Thanks for that wisdom. Only catch I have is disposing the graphics properly.

Using gr As Graphics = Graphics.FromImage(bmp)
'Use gr here.
End Using[/HIGHLIGHT]Just think of the "Using" key word as a replacement for "Dim" and when you hit Enter at the end of the line the IDE will add the End Using for you.

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim img As New Bitmap(200, 200)
        Using g As Graphics = Graphics.FromImage(img)
            g.DrawImage(New Bitmap("c:\border.jpg"), New Rectangle(0, 0, 200, 200))
            g.DrawImage(New Bitmap("c:\sunset.jpg"), New Rectangle(10, 30, 180, 138))
        End Using
        'SHOW THE NEW IMAGE
        PictureBox1.Image = img
        'Saves the image
        img.Save("c:\newimage.jpg")
    End Sub

[Xancholy]

gnaver, one more question.

I have a transparent gif that I want to overlay as watermark/logo on an image.

It should be positioned on the top right corner of the image. Can you please show me how to do that ?

[gnaver]

dont know if this is what you want?

Dim img As New Bitmap(200, 200)
 
 
        Using g As Graphics = Graphics.FromImage(img)
            g.DrawImage(New Bitmap("c:\border.jpg"), New Rectangle(0, 0, 200, 200))
            g.DrawImage(New Bitmap("c:\image.jpg"), New Rectangle(10, 30, 180, 138))
            g.DrawImage(New Bitmap("c:\logo.gif"), New Rectangle(200 - 50, 0, 50, 50))
 
        End Using
        'SHOW THE NEW IMAGE
        PictureBox1.Image = img
        'Saves the image
        img.Save("c:\newimage.jpg")

also instead of gif you should use png as they support more colors

[.paul.]

Only catch I have is disposing the graphics properly.

the built in .net garbage disposal system will .dispose all variables when you exit the sub.

[Xancholy]

the built in .net garbage disposal system will .dispose all variables when you exit the sub.

Apparently there are some memory leak issues. "Using" is what the experts recommend.

[Xancholy]

dont know if this is what you want?

Gnaver, thanks, that looks pretty simple. Do you know how to extract a thumbnail from the new saved image ?

img.Save("c:\newimage.jpg")

Or is it possible to save the newimage.jpg as a smaller thumbnail sized 133x100 image ?