在GDITec Web应用程序里,添加一个Web窗体,命名为GDI_Sample2.aspx,我们来设计逻辑代码:
'-----code begin-----
Imports System.Drawing
Imports System.Drawing.Bitmap
Imports System.Drawing.Graphics
Imports System.Drawing.Imaging
Public Class GDI_Sample2
Inherits System.Web.UI.Page
#Region " Web 窗体设计器生成的代码 "
'此处省略了窗体设计器生成的代码
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
Dim objBitmap As Bitmap
Dim i As Integer
'声明随机种子,用来随机产生1000个象素点的坐标
Dim objRandom As Random
'声明画布对象
objBitmap = New Bitmap(150, 50)
'声明Graphics对象
Dim objGraphics As Graphics
'指定画布
objGraphics = Graphics.FromImage(objBitmap)
'设置背景
objGraphics.Clear(Color.Violet)
'声明随机种子
objRandom = New Random
'生成随机的500掺杂点
For i = 1 To 500
objBitmap.SetPixel(objRandom.Next(150), objRandom.Next(50), Color.Snow)
' objBitmap.SetPixel的方法是绘制点,参数3个,分别是X,Y ,Color
Next
For i = 1 To 5
'声明并定义字体,字体大小在10-25之间随机
Dim objfont As Font = New Font("宋体", objRandom.Next(10, 35), FontStyle.Bold)
objGraphics.DrawString(Chr(objRandom.Next(Asc("A"), Asc("Z"))), objfont, Brushes.Black, 30 * (i - 1), objRandom.Next(20))
'objGraphics.DrawString(的重载有6种,上句中的参数分别是字符串,字体,画笔,X,Y
Next
' 声明画笔对象,
Dim objpen As Pen
'生成5条随机的彩线,对生成的8个字符上面画线
For i = 1 To 8
'实例化画笔,并设置随机生成画笔颜色,定义画笔笔触大小为1个象素
objpen = New Pen(Color.FromArgb(objRandom.Next(255), objRandom.Next(255), objRandom.Next(255)), 1)
objGraphics.DrawLine(objpen, objRandom.Next(150), objRandom.Next(50), objRandom.Next(150), objRandom.Next(50))
'objgraphics.DrawLine 共有4种重载函数,这里我们使用的四个参数分别是画笔,X1,Y1,X2,Y2
Next
'将objGraphics对象以指定的图形格式(这里是Gif)保存到指定的Stream对象,并输出到客户端。
objBitmap.Save(Response.OutputStream, Drawing.Imaging.ImageFormat.Gif)
End Sub
End Class
'-----code end ------
保存编译后,运行结果如图11.2所示。
图11.2 GDI_Sample2.aspx运行结果
如果要在应用程序用使用GDI_Sample2.aspx生成图片的功能,必须有另外一个Web页面引用。
我们再新建一个Web页面,命名为GDI_Sample3.aspx,添加一个Image控件,设置Image控件的属性:
<asp:Image id="Image1" runat="server" Width="141px" Height="51px"
ImageUrl="GDI_Sample2.aspx"
></asp:Image>
将GDI_Sample3.aspx保存编译后,预览如图11.3所示。
图11.3 GDI_Sample3.aspx运行结果