Create a temp copy of a bitmap

[John]

The following 4 lines add a border to a bitmap and save it into clipboard,
however it also add a border to the bitmap on the screen.

I want to create a temp copy of the bitmap and add a border to it without
affecting the bitmap on the screen. Any suggestions? Thanks

'''''
Dim g As Graphics = Graphics.FromIm age(MyPpic.Imag e)
Dim pen As New Pen(Color.Gray)
g.DrawRectangle (pen, 0, 0, MyPpic.Image.Wi dth - 1,
MyPpic.Image.He ight - 1) ' draw border
Clipboard.SetDa taObject(MyPpic .Image)
''''

[Herfried K. Wagner [MVP]]

"John" <Jo**@discussio ns.microsoft.co m> schrieb:

The following 4 lines add a border to a bitmap and save it into clipboard,
however it also add a border to the bitmap on the screen.

I want to create a temp copy of the bitmap and add a border to it without
affecting the bitmap on the screen. Any suggestions? Thanks

'''''
Dim g As Graphics = Graphics.FromIm age(MyPpic.Imag e)
Dim pen As New Pen(Color.Gray)
g.DrawRectangle (pen, 0, 0, MyPpic.Image.Wi dth - 1,
MyPpic.Image.He ight - 1) ' draw border
Clipboard.SetDa taObject(MyPpic .Image)
''''

You will have to create a new 'Bitmap' object, get a 'Graphics' object and
draw the original image and the border onto the temporary bitmap.

\\\
Dim b As New Bitmap(100, 100, ...)
Dim g As Graphics = Graphics.FromIm age(b)
g.DrawImage(x, ...)
g.DrawRectangle (...)
g.Dispose()
Clipboard.SetDa taObject(b)
///

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

[Mythran]

"John" <Jo**@discussio ns.microsoft.co m> wrote in message
news:B9******** *************** ***********@mic rosoft.com...

The following 4 lines add a border to a bitmap and save it into clipboard,
however it also add a border to the bitmap on the screen.

I want to create a temp copy of the bitmap and add a border to it without
affecting the bitmap on the screen. Any suggestions? Thanks

'''''
Dim g As Graphics = Graphics.FromIm age(MyPpic.Imag e)
Dim pen As New Pen(Color.Gray)
g.DrawRectangle (pen, 0, 0, MyPpic.Image.Wi dth - 1,
MyPpic.Image.He ight - 1) ' draw border
Clipboard.SetDa taObject(MyPpic .Image)
''''

Clone the graphics object first, as follows:

Dim img As Image = MypPic.Image.Cl one()
Dim g As Graphics = Graphics.FromIm age(img)
Dim pen As Pen = New Pen(Color.Blue)
g.DrawRectangle (pen, 0, 0, img.Width - 1, img.Height - 1)
Clipboard.SetDa taObject(img)
HTH,
Mythran