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