textrenderinghint.aspx

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

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

<Script Runat="Server">

Sub Page_Load
  Dim objBitmap As Bitmap
  Dim objGraphics As Graphics
  Dim strString As String
  
  ' Create Bitmap
  objBitmap = New Bitmap( 600, 400 )

  ' Create Graphics
  objGraphics = Graphics.FromImage( objBitmap )
  objGraphics.Clear( Color.DarkBlue )

  ' Prepare Font
  Dim objFont As New Font( "Times", 24 )

  strString = "ABCabc123 - AntiAlias"
  objGraphics.TextRenderingHint = TextRenderingHint.AntiAlias
  objGraphics.DrawString( strString, objFont, Brushes.White, 10, 10 )

  strString = "ABCabc123 - AntiAliasGridFit"
  objGraphics.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
  objGraphics.DrawString( strString, objFont, Brushes.White, 10, 50 )

  strString = "ABCabc123 - ClearTypeGridFit"
  objGraphics.TextRenderingHint = TextRenderingHint.ClearTypeGridFit
  objGraphics.DrawString( strString, objFont, Brushes.White, 10, 90 )

  strString = "ABCabc123 - SingleBitPerPixel"
  objGraphics.TextRenderingHint = TextRenderingHint.SingleBitPerPixel
  objGraphics.DrawString( strString, objFont, Brushes.White, 10, 130 )

  strString = "ABCabc123 - SingleBitPerPixelGridFit"
  objGraphics.TextRenderingHint = TextRenderingHint.SingleBitPerPixel
  objGraphics.DrawString( strString, objFont, Brushes.White, 10, 170 )

  strString = "ABCabc123 - SystemDefault"
  objGraphics.TextRenderingHint = TextRenderingHint.SystemDefault
  objGraphics.DrawString( strString, objFont, Brushes.White, 10, 210 )

  ' Display Bitmap
  objBitmap.Save( Response.OutputStream, ImageFormat.JPEG )
End Sub
</Script>