'str欲添加的文字 ， width 圖片寬度，height圖片高度，filename 圖片名
Private Function CreatePic(ByVal Str As String, ByVal width As Integer, ByVal heightAs Integer, ByVal filename As String)
??????? Dim bitmap As Bitmap = New Bitmap(width, height, System.Drawing.Imaging.PixelFormat.Format32bppRgb)
??????? Dim g As Graphics = Graphics.FromImage(bitmap)
??????? g.Clear(Color.White)
??????? Dim f As Font = New Font("System", 9)
??????? Dim s As SolidBrush = New SolidBrush(Color.Black)
??????? g.DrawString(Str, f, s, 0, 0)
??????? Try
??????????? bitmap.Save(filename, System.Drawing.Imaging.ImageFormat.Gif)
??????? Catch ex As Exception
??????? End Try
??????? g.Dispose()
??????? bitmap.Dispose()
End Function

轉載于:https://www.cnblogs.com/shaofh/archive/2006/07/07/445241.html

總結

以上是生活随笔為你收集整理的自動生成帶文字的圖片的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。