pathgradientbrush.aspx

来自「asp.net技术内幕的书配源码」· ASPX 代码 · 共 39 行

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

<Script Runat="Server">

Sub Page_Load
  Dim objBitmap As Bitmap
  Dim objGraphics As Graphics
  Dim objPath As GraphicsPath
  Dim objBrush As PathGradientBrush

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

  ' Create Graphics
  objGraphics = Graphics.FromImage( objBitmap )

  ' Create Path
  objPath = New GraphicsPath( )
  objPath.AddLine( 10, 10, 300, 10 )
  objPath.AddEllipse( 50, 50, 300, 300 )
  objPath.AddEllipse( 10, 10, 200, 200 )
  objPath.AddLine( 10, 300, 100, 300 )

  ' Create PathGradient Brush
  objBrush = New PathGradientBrush( objPath )
  objBrush.CenterColor = Color.Red

  ' Draw Path
  objGraphics.FillPath( objBrush, objPath )

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

</Script>