Public Class Form1
Dim Graph As Graphics
Dim Drawbitmap As Bitmap
Dim Brush As New Drawing.SolidBrush(Color.Black)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim dlg As New FontDialog
If dlg.ShowDialog = Windows.Forms.DialogResult.OK Then
RichTextBox1.Font = dlg.Font
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim dlg As New ColorDialog
If dlg.ShowDialog = Windows.Forms.DialogResult.OK Then
Brush.Color = dlg.Color
RichTextBox1.ForeColor = dlg.Color
End If
End Sub
Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
Drawbitmap = New Bitmap(PictureBox1.Width, PictureBox1.Height)
Graph = Graphics.FromImage(Drawbitmap)
PictureBox1.Image = Drawbitmap
Graph.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
Graph.DrawString(RichTextBox1.Text, RichTextBox1.Font, Brush, PictureBox1.Location)
End Sub
End Class
'You can add save code, if ya want the codes for save, here it is:
' Dim dlg As New SaveFileDialog
'dlg.Filter = "Bitmap|*.bmp"
'If dlg.ShowDialog = Windows.Forms.DialogResult.OK Then
'PictureBox1.Image.Save(dlg.FileName)
'End If