Drawing Text

In previous lessons, you learned how to draw shapes such as rectangles and ellipses. Now, you will learn how to draw text using the DrawString method. :contentReference[oaicite:1]{index=1}

myGraphics.DrawString(myText, myFont, myBrush, X, Y)

• myText → text to display
• myFont → font style
• myBrush → text color
• X, Y → position

Dim myFont As New Font("Verdana", 20)

Font styles:

New Font("Verdana", 20, FontStyle.Bold)
New Font("Verdana", 20, FontStyle.Italic)
New Font("Verdana", 20, FontStyle.Underline)

Dim myBrush As Brush
myBrush = New SolidBrush(Color.DarkOrchid)

You can choose many colors such as Blue, Red, Aqua, DarkMagenta, etc.

Private Sub BtnDraw_Click(...) Handles BtnDraw.Click

Dim g As Graphics = Me.CreateGraphics()
Dim font As New Font("Verdana", 20, FontStyle.Underline)
Dim brush As New SolidBrush(Color.DarkOrchid)

g.DrawString("Visual Basic 2015", font, brush, 10, 10)

End Sub

You can simplify the code by using existing font and system brush:

g.DrawString("Visual Basic 2015", Me.Font, Brushes.DarkOrchid, 10, 10)

Dim g As Graphics = Me.CreateGraphics()
Dim userMsg As String

userMsg = InputBox("Enter your message")

Dim font As New Font("Verdana", 20, FontStyle.Underline)
Dim brush As New SolidBrush(Color.DarkOrchid)

g.DrawString(userMsg, font, brush, 10, 10)

This allows the user to display custom text dynamically.