頁面中有一個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
完成