时间:2021-07-01 10:21:17 帮助过:54人阅读
'-----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运行结果 |