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