ASP.Net：System.Drawing的使用

    在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运行结果

    我们再新建一个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运行结果