'-----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運行結果
在通過IE浏覽器浏覽的時候,我們可以看到頁面中已經有了一個黑色背景摻雜白色點點的圖片。當然這只是簡單的應用,在下一節裡,我們將繼續介紹使用System.Drawing下的類的使用。