Using Vb .net, Source code to convert text to Image

Visual basic source code to take any text string and convert it to a image.

Public Function Text2Image(ByVal YourText As String, ByVal YourFontColor As Color, _
ByVal YourBackColor As Color, ByVal YourFontName As String, ByVal FontSize As Integer, _
ByVal Height As Integer, ByVal Width As Integer) As Image

YourText as String 'The string to be converted to image
YourFontColor as Color 'The color of your string
YourBackColor as Color 'The background color of your image
YourFontName as string 'The name of the font Example "Times New Roman"
FontSize As Integer 'The size of font
Height As Integer
Width As Integer

Return
Image

Imports System.Drawing Imports System.Drawing.Imaging Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'To use this function PictureBox1.Image = Text2Image("Ess-image", Color.Gold, Color.Blue, "Times New Roman", 14, 40, 200) End Sub Public Function Text2Image(ByVal YourText As String, ByVal YourFontColor As Color, ByVal YourBackColor As Color, ByVal YourFontName As String, ByVal FontSize As Integer, ByVal Height As Integer, ByVal Width As Integer) As Image Dim objBitmap As New Bitmap(Width, Height) Dim objGraphics As Graphics = Graphics.FromImage(objBitmap) Dim objColor As Color Dim objFont As New Font(YourFontName, FontSize) Dim objPoint As New PointF(5.0F, 5.0F) Dim objBrushForeColor As New SolidBrush(YourFontColor) Dim objBrushBackColor As New SolidBrush(YourBackColor) objGraphics.FillRectangle(objBrushBackColor, 0, 0, Width, Height) objGraphics.DrawString(YourText, objFont, objBrushForeColor, objPoint) Return objBitmap End Function