custompen.aspx

asp.net技术内幕的书配源码

<%@ Page ContentType="image/gif" %>
<%@ Import namespace="System.Drawing" %>
<%@ Import namespace="System.Drawing.Imaging" %>

<Script Runat="Server">

Sub Page_Load
  Dim objBitmap As Bitmap
  Dim objGraphics As Graphics
  Dim objPen As Pen

  ' Create Bitmap
  objBitmap = New Bitmap( 400, 400 )

  ' Create Graphics
  objGraphics = Graphics.FromImage( objBitmap )

  ' Create Custom Pen
  objPen = New Pen( Color.Purple )
  objPen.Width = 5

  ' Draw Circle
  objGraphics.DrawEllipse( objPen, 10, 10, 200, 200 )

  ' Display Bitmap
  objBitmap.Save( Response.OutputStream, ImageFormat.Gif )
End Sub

</Script>