文字生成图片

最新推荐文章于 2023-06-14 17:23:02 发布

egooh

最新推荐文章于 2023-06-14 17:23:02 发布

阅读量964

点赞数

分类专栏： asp.net 文章标签： integer exception string class object system

本文链接：https://blog.csdn.net/egooh/article/details/2173928

版权

asp.net 专栏收录该内容

11 篇文章 0 订阅

订阅专栏

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