在线等，给图片加文字水印的C#版本 改为VB.net版本就出错了

[gujiaopeng0103]

我在网上找到给图片加文字水印的C#版本，我想改为VB.NET版本 下面代码中的
改好后运行没有问题,但是水印加不上去,求助!!!!!!!!!


sPath = Server.MapPath("./") & "upload_images\upimage\" & sFileName
poFile.SaveAs(sPath)
'file1.SaveAs(sPath)
'Upload.PostedFile.SaveAs(sPath)

Dim image As Image = image.FromFile(sPath)
Dim bitWaterMark As New Bitmap(image, image.Width, image.Height)
Dim g As Graphics = Graphics.FromImage(bitWaterMark)

Dim f As New Font("华文行楷", 40)
Dim b As Brush = New SolidBrush(Color.Black)
Dim c As Brush = New SolidBrush(Color.White)
Dim addtext As String = "www.lygport.com.cn"
g.DrawString(addtext, f, b, 10, 10)
g.DrawString(addtext, f, c, 11, 11)
g.Dispose()
image.Save(Server.MapPath("./") & "upload_images\big\" & sFileName)
image.Dispose()
If (File.Exists(Server.MapPath("./") & "upload_images\upimage\" & sFileName)) Then
File.Delete(Server.MapPath("./") & "upload_images\upimage\" & sFileName)
End If

[北京的雾霾天]

什么是水印啊，觉得你的代码中没有和“水印”有关的代码啊。。。

[北京的雾霾天]

你用bitWaterMark 画了图，但是没有保存bitWaterMark ，而是保存了image ，

所以，你是不是要把这句改一下：
Dim g As Graphics = Graphics.FromImage(bitWaterMark)

－－－－－－－－－－－》
Dim g As Graphics = Graphics.FromImage(image)

[51Crack]

干脆编译成dll在vb中调用

[lovingkiss]

Dim bitWaterMark As New Bitmap(image, image.Width, image.Height)
Dim g As Graphics = Graphics.FromImage(bitWaterMark)

去掉第一行，把下面的改成
Dim g As Graphics = Graphics.FromImage(image)

你写在了A上，保存了B，当然不会有效果~~

[it_gz_xi]

好象在VB.NET中Server.MapPath会有错
改为 Application.StartupPath试试

[lanbiabia1]

能不能把C#那个源码给我啊?呵呵~我的邮箱[e-mail]

[蜗牛水里爬]

AjaxControlToolkit 实现水印效果