'-----code begin-----

    Imports System.Drawing

    Imports System.Drawing.Bitmap

    Imports System.Drawing.Graphics

    Public Class WebForm1

    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

    '在此處放置初始化頁的用戶代碼

    '聲明bitmap對象

    'Bitmap對象就相當于一個畫布，有了畫布我們才可以在上面做出圖形

    Dim objBitmap As Bitmap

    Dim i As Integer

    '聲明隨機種子，用來隨機產生1000個象素點的坐標

    Dim objRandom As Random

    ' Create Bitmap

    objBitmap = New Bitmap(300, 100)

    ' Set 1000 Pixels

    objRandom = New Random

    For i = 1 To 5000

    objBitmap.SetPixel(objRandom.Next(300), objRandom.Next(100), Color.White)

    Next

    '將objGraphics對象以指定的圖形格式（這里是Gif）保存到指定的Stream對象，

    '并輸出到客戶端。save方法有5個重載，可以保存到硬盤中，可以選擇不同的圖片格式

    objBitmap.Save(Response.OutputStream, Drawing.Imaging.ImageFormat.Gif)

    End Sub

    End Class

    '---------code end -----

    保存編譯后，GDI_Sample1.aspx運行結果如圖11.1所示。

圖 11.1 GDI_Sample1.aspx運行結果