VB.NET 文字生成图片

Imports System
Imports System.Collections.Generic
Imports System.Drawing
Imports System.Drawing.Imaging

   

     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call CreateImage("要生成文字", "C:/1111.jpg")
    End Sub

 

   '文字生成图片
    Public Function CreateImage(ByVal Name As String, ByVal filePath As String)
        CreateImage = Nothing

        Dim wid As Integer
        Dim high As Integer
        wid = 800
        high = 200

        Dim font As Font
        font = New Font("Arial", 11, FontStyle.Bold)
        '//绘笔颜色

        Dim brush As SolidBrush
        brush = New SolidBrush(Color.Black)

        Dim image As Bitmap
        image = New Bitmap(wid, high)
        Dim g As Graphics
        g = Graphics.FromImage(image)
        g.Clear(ColorTranslator.FromHtml("#f0f0f0"))
        Dim rect As RectangleF
        rect = New RectangleF(5, 2, wid, high)

        '//绘制图片
        g.DrawString(Name, font, brush, rect)

        '//保存图片
        image.Save(filePath, ImageFormat.Jpeg)
        '//释放对象
        g.Dispose()
        image.Dispose()

    End Function