页面中有一个Image控件,一个TextBox空间,一个Button空间。
在Button_Click方法中输入以下代码(目的将Server.MapPath("/WebApplication1") & "/img/image.jpg"图片左上角(2,2)添加TextBox中输入字符的颜色Color.Blue为水印,并重命名显示)
Dim image As System.Drawing.Bitmap = New System.Drawing.Bitmap(Server.MapPath("/WebApplication1") & "/img/image.jpg")
Dim g As Graphics = Graphics.FromImage(image)
Dim font As Font = New System.Drawing.Font("Arial", 20, FontStyle.Bold, GraphicsUnit.Pixel)
Dim brush As System.Drawing.Drawing2D.LinearGradientBrush = New System.Drawing.Drawing2D.LinearGradientBrush(New Rectangle(0, 0, image.Width, image.Height), Color.Blue, Color.Blue, 1.2F, True)
g.DrawString(TextBox1.Text,font, brush, 2, 2)
Dim a As String = Date.Now.ToShortDateString & Date.Now.ToShortTimeString.Replace(":", "-") & ".jpg"
image.Save(Server.MapPath("/WebApplication1") & "/img/image" & a, System.Drawing.Imaging.ImageFormat.Jpeg)
Image1.ImageUrl = "/WebApplication1/img/image" & a
完成