文字生成图片

Imports System
Imports System.io
Imports System.Drawing
Imports System.Drawing.Imaging
Imports Microsoft.VisualBasic
Partial Class Default2
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim strFontName As String = "草檀斋毛泽东字体"
        Dim intFontSize As Integer = 30

        Dim strShowName As String = "中国人民政治协商会议"

        Dim objBitmap As Bitmap
        Dim g As Graphics

        Dim stringFont As Font = New Font(strFontName, intFontSize, FontStyle.Bold)
        Dim stringFormat As StringFormat = New StringFormat
        stringFormat.FormatFlags = StringFormatFlags.NoWrap

        Try

            objBitmap = New Bitmap(1, 1)
            g = Graphics.FromImage(objBitmap)
            Dim stringSize As SizeF = g.MeasureString(strShowName, stringFont)
            Dim nWidth As Integer = CType(stringSize.Width, Integer)
            Dim nHeight As Integer = CType(stringSize.Height, Integer)
            g.Dispose()
            objBitmap.Dispose()

            objBitmap = New Bitmap(nWidth, nHeight)
            g = Graphics.FromImage(objBitmap)
            g.FillRectangle(New SolidBrush(Color.White), New Rectangle(0, 0, nWidth, nHeight))
            '  g.TextRenderingHint = Text.TextRenderingHint.AntiAlias
            g.DrawString(strShowName, stringFont, New SolidBrush(Color.Red), New PointF(0, 0), stringFormat)
            objBitmap.Save(Response.OutputStream, Imaging.ImageFormat.Gif)

        Catch ex As Exception

            Response.Write(ex.ToString)

        Finally

            g.Dispose()
            objBitmap.Dispose()

        End Try

    End Sub
End Class