参考这个,将文本做成图片
Dim _FontName As String = ""
Dim _FontSize As Integer = 10
Dim _ShowName As String = "yourtext"
Dim objBitmap As Bitmap
Dim g As Graphics
Dim stringFont As New Font(_FontName, _FontSize, FontStyle.Bold)
Dim stringFormat As New StringFormat
stringFormat.FormatFlags = StringFormatFlags.NoWrap
objBitmap = New Bitmap(1, 1)
g = Graphics.FromImage(objBitmap)
Dim stringSize As SizeF = g.MeasureString(_ShowName, stringFont)
Dim nWidth As Integer = stringSize.Width
Dim nHeight As Integer = stringSize.Height
g.Dispose()
objBitmap.Dispose()
objBitmap = New Bitmap(nWidth, nHeight)
g = Graphics.FromImage(objBitmap)
'g.FillRectangle(New SolidBrush(Color.Transparent), New Rectang(0, 0, nWidth, nHeight))
g.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAlias
g.DrawString(_ShowName, stringFont, New SolidBrush(Color.Black), New PointF(0, 0), stringFormat)
Me.PictureBox1.Image = objBitmap
objBitmap.Save("E:\dd.gif", System.Drawing.Imaging.ImageFormat.Gif)