Image Modofication

[Samuel Shulman]

Hi everyone,

I would like to implement the following functionality

Program to read image file, add a layer on top (partially transparent), then
save the images with these changes

How can that be achieved?

Thank you,
Samuel

[vbnetdev]

See if this helps...
http://articles.techrepublic.com.com...1-6118091.html
"Samuel Shulman" <sa************@ntlworld.comwrote in message
news:%2****************@TK2MSFTNGP03.phx.gbl...

Hi everyone,

I would like to implement the following functionality

Program to read image file, add a layer on top (partially transparent),
then save the images with these changes

How can that be achieved?

Thank you,
Samuel

[Herfried K. Wagner [MVP]]

"Samuel Shulman" <sa************@ntlworld.comschrieb:

Program to read image file, add a layer on top (partially transparent),
then save the images with these changes

How can that be achieved?

Check out the 'System.Drawing.Bitmap' class.

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

[Herfried K. Wagner [MVP]]

Addendum:

I forgot to mention the 'Graphics' class, which can be used to draw another
bitmap onto your bitmap using its 'DrawImage' method. A 'Graphics' object
for a bitmap can be obtained using 'Graphics.FromImage'.

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

[Samuel Shulman]

This is the code

Note that the original image can't be used!

Thanks,
Samuel
Public Shared Sub AddTextToImage(ByVal sImageFilePath As String)

Dim org As Bitmap = Image.FromFile(sImageFilePath)

Dim bm As Bitmap = New Bitmap(org.Width, org.Height) ') '; << Can specify
optional pixel format but defaults to 32bppArgb

Dim g As Graphics = Graphics.FromImage(bm)

g.DrawImage(org, 0, 0, org.Width, org.Height)

Dim objFont As System.Drawing.Font

g.TextRenderingHint = TextRenderingHint.AntiAlias

'//Draw other stuff on g here...

objFont = New Font("Comic Sans MS", 75, FontStyle.Bold)

' Write out the text

g.DrawString("Sold", objFont, Brushes.CornflowerBlue, 28, 100)

org.Dispose()

g.Dispose()

'delete the previous file

IO.File.Delete(sImageFilePath)

bm.Save(sImageFilePath, Imaging.ImageFormat.Jpeg)

bm.Dispose()

End Sub
"Herfried K. Wagner [MVP]" <hi***************@gmx.atwrote in message
news:u4**************@TK2MSFTNGP03.phx.gbl...

Addendum:

I forgot to mention the 'Graphics' class, which can be used to draw
another bitmap onto your bitmap using its 'DrawImage' method. A
'Graphics' object for a bitmap can be obtained using 'Graphics.FromImage'.

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

[Herfried K. Wagner [MVP]]

Samuel,

"Samuel Shulman" <sa************@ntlworld.comschrieb:

This is the code

Note that the original image can't be used!

Did this code solve the problem?

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

[Samuel Shulman]

Yes,

"Herfried K. Wagner [MVP]" <hi***************@gmx.atwrote in message
news:Oy*************@TK2MSFTNGP06.phx.gbl...

Samuel,

"Samuel Shulman" <sa************@ntlworld.comschrieb:

>This is the code

Note that the original image can't be used!

Did this code solve the problem?

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