Lesson 29: Drawing Text in VB2019

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

' Basic font
Dim font1 As New Font("Arial", 12)

' Bold font
Dim font2 As New Font("Verdana", 14, FontStyle.Bold)

' Italic font
Dim font3 As New Font("Times New Roman", 16, FontStyle.Italic)

' Combined styles
Dim font4 As New Font("Comic Sans", 18, FontStyle.Bold Or FontStyle.Underline)

' Create custom brush
Dim myBrush As Brush = New Drawing.SolidBrush(Color.DarkOrchid)

' Use predefined brush
Dim redBrush As Brush = System.Drawing.Brushes.Red

' Common color options:
Color.AliceBlue, Color.AquaMarine, Color.Beige, 
Color.DarkMagenta, Color.DarkOliveGreen, Color.SkyBlue

Private Sub BtnDraw_Click(sender As Object, e As EventArgs) Handles BtnDraw.Click
    ' Create the Graphics object
    Dim myGraphics As Graphics = Me.CreateGraphics
    
    ' Get text from user
    Dim myText As String = InputBox("Enter the text you wish to draw")
    
    ' Create a dark orchid brush
    Dim myBrush As Brush = New Drawing.SolidBrush(Color.DarkOrchid)
    
    ' Create Arial font, size 18, with underline
    Dim myFont As New Font("Arial", 18, FontStyle.Underline)
    
    ' Draw the text at position (10, 10)
    myGraphics.DrawString(myText, myFont, myBrush, 10, 10)
End Sub

Private Sub BtnPrint_Click(sender As Object, e As EventArgs) Handles BtnPrint.Click
    ' Create the Graphics object
    Dim myGraphics As Graphics = Me.CreateGraphics
    
    ' Get text from customized InputBox
    Dim myPhrase As String = InputBox(
        "What is your message?", ' Prompt
        "Message Entry Form", ' Title
        "Enter your message here", ' Default text
        100, 200) ' X and Y position
    
    ' Draw using form's font and predefined brush
    myGraphics.DrawString(myPhrase, Me.Font, System.Drawing.Brushes.DarkOrchid, 10, 10)
End Sub

Private Sub BtnDrawFormatted_Click(sender As Object, e As EventArgs) Handles BtnDrawFormatted.Click
    Dim myGraphics As Graphics = Me.CreateGraphics
    Dim text As String = "Centered Text with Formatting"
    
    ' Create font and brush
    Dim myFont As New Font("Georgia", 20, FontStyle.Bold)
    Dim myBrush As Brush = Brushes.DarkBlue
    
    ' Create formatting options
    Dim format As New StringFormat()
    format.Alignment = StringAlignment.Center ' Horizontal center
    format.LineAlignment = StringAlignment.Center ' Vertical center
    
    ' Define drawing rectangle
    Dim rect As New Rectangle(10, 10, Me.Width - 20, Me.Height - 20)
    
    ' Draw centered text
    myGraphics.DrawString(text, myFont, myBrush, rect, format)
End Sub