Lesson 29: Mastering Text Drawing in VB2022

Private Sub BtnDrawText_Click(sender As Object, e As EventArgs) Handles BtnDrawText.Click
    ' Create graphics object
    Dim g As Graphics = Me.CreateGraphics()
    
    ' Create a font
    Dim textFont As New Font("Arial", 24, FontStyle.Bold)
    
    ' Create a brush
    Dim textBrush As New SolidBrush(Color.DarkBlue)
    
    ' Define text and position
    Dim myText As String = "Hello VB2022!"
    Dim positionX As Integer = 50
    Dim positionY As Integer = 100
    
    ' Draw the text
    g.DrawString(myText, textFont, textBrush, positionX, positionY)
    
    ' Clean up resources
    textFont.Dispose()
    textBrush.Dispose()
    g.Dispose()
End Sub

Private Sub BtnCenterText_Click(sender As Object, e As EventArgs) Handles BtnCenterText.Click
    Dim g As Graphics = Me.CreateGraphics()
    Dim text As String = "Centered Text"
    Dim textFont As New Font("Times New Roman", 28, FontStyle.Bold)
    Dim textBrush As New SolidBrush(Color.DarkGreen)
    
    ' Create StringFormat for alignment
    Dim format As New StringFormat()
    format.Alignment = StringAlignment.Center
    format.LineAlignment = StringAlignment.Center
    
    ' Create rectangle for centering
    Dim rect As New Rectangle(0, 0, Me.ClientSize.Width, Me.ClientSize.Height)
    
    ' Draw centered text
    g.DrawString(text, textFont, textBrush, rect, format)
    
    ' Clean up
    textFont.Dispose()
    textBrush.Dispose()
    format.Dispose()
    g.Dispose()
End Sub

Private Sub BtnRotateText_Click(sender As Object, e As EventArgs) Handles BtnRotateText.Click
    Dim g As Graphics = Me.CreateGraphics()
    Dim text As String = "Rotated Text"
    Dim textFont As New Font("Impact", 28, FontStyle.Regular)
    Dim textBrush As New SolidBrush(Color.DarkMagenta)
    
    ' Save original graphics state
    Dim originalState As Drawing2D.GraphicsState = g.Save()
    
    ' Move rotation point to (200, 150)
    g.TranslateTransform(200, 150)
    
    ' Rotate 45 degrees
    g.RotateTransform(45)
    
    ' Draw text at rotation point
    g.DrawString(text, textFont, textBrush, 0, 0)
    
    ' Restore original state
    g.Restore(originalState)
    
    ' Clean up
    textFont.Dispose()
    textBrush.Dispose()
    g.Dispose()
End Sub

Private Sub BtnGradientText_Click(sender As Object, e As EventArgs) Handles BtnGradientText.Click
    Dim g As Graphics = Me.CreateGraphics()
    Dim text As String = "Gradient Text"
    Dim textFont As New Font("Verdana", 32, FontStyle.Bold)
    
    ' Create gradient brush
    Dim gradientBrush As New Drawing2D.LinearGradientBrush(
        New Point(50, 100),
        New Point(350, 100),
        Color.Red,
        Color.Blue)
    
    ' Draw text with gradient
    g.DrawString(text, textFont, gradientBrush, 50, 100)
    
    ' Clean up
    textFont.Dispose()
    gradientBrush.Dispose()
    g.Dispose()
End Sub

Private Sub BtnTextBackground_Click(sender As Object, e As EventArgs) Handles BtnTextBackground.Click
    Dim g As Graphics = Me.CreateGraphics()
    Dim text As String = "Text with Background"
    Dim textFont As New Font("Georgia", 20, FontStyle.Bold)
    Dim textBrush As New SolidBrush(Color.White)
    Dim bgBrush As New SolidBrush(Color.FromArgb(150, 0, 0, 150))
    
    ' Measure text size
    Dim textSize As SizeF = g.MeasureString(text, textFont)
    
    ' Define background rectangle
    Dim bgRect As New Rectangle(50, 100, textSize.Width + 20, textSize.Height + 10)
    
    ' Draw background
    g.FillRectangle(bgBrush, bgRect)
    
    ' Draw text
    g.DrawString(text, textFont, textBrush, 60, 105)
    
    ' Clean up
    textFont.Dispose()
    textBrush.Dispose()
    bgBrush.Dispose()
    g.Dispose()
End Sub