'-----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運行結果 |
聲明:本網頁內容旨在傳播知識,若有侵權等問題請及時與本網聯系,我們將在第一時間刪除處理。TEL:177 7030 7066 E-MAIL:11247931@qq.com