Lesson 31: Coloring Shapes in VB2022

Private Sub CreateBrushExample()
    ' Create a blue SolidBrush
    Dim blueBrush As New SolidBrush(Color.Blue)
    
    ' Create a custom color brush using RGB values
    Dim customColor As Color = Color.FromArgb(255, 200, 100, 50)
    Dim customBrush As New SolidBrush(customColor)
    
    ' Use the brushes...
    
    ' Dispose of brushes when done
    blueBrush.Dispose()
    customBrush.Dispose()
End Sub

Private Sub BtnDrawRectangle_Click(sender As Object, e As EventArgs) Handles BtnDraw.Click
    ' Create graphics object
    Dim g As Graphics = Me.CreateGraphics()
    
    ' Create pen and brush
    Dim myPen As New Pen(Color.Blue, 5)
    Dim myBrush As New SolidBrush(Color.Coral)
    
    ' Draw rectangle outline
    g.DrawRectangle(myPen, 65, 50, 150, 150)
    
    ' Fill rectangle with color
    g.FillRectangle(myBrush, 65, 50, 150, 150)
    
    ' Clean up resources
    myPen.Dispose()
    myBrush.Dispose()
    g.Dispose()
End Sub

Private Sub BtnDrawEllipse_Click(sender As Object, e As EventArgs) Handles BtnDraw.Click
    Dim g As Graphics = Me.CreateGraphics()
    
    ' Create a custom light blue color
    Dim lightBlue As Color = Color.FromArgb(200, 230, 255)
    
    Dim myPen As New Pen(Color.DarkBlue, 3)
    Dim myBrush As New SolidBrush(lightBlue)
    
    ' Draw ellipse outline
    g.DrawEllipse(myPen, 50, 50, 180, 100)
    
    ' Fill ellipse with color
    g.FillEllipse(myBrush, 50, 50, 180, 100)
    
    ' Clean up
    myPen.Dispose()
    myBrush.Dispose()
    g.Dispose()
End Sub

Private Sub BtnDrawPolygon_Click(sender As Object, e As EventArgs) Handles BtnDraw.Click
    Dim g As Graphics = Me.CreateGraphics()
    
    ' Define polygon vertices
    Dim A As New Point(70, 10)
    Dim B As New Point(170, 50)
    Dim C As New Point(200, 150)
    Dim D As New Point(140, 200)
    Dim E As New Point(50, 180)
    Dim myPoints As Point() = {A, B, C, D, E}
    
    Dim myPen As New Pen(Color.DarkBlue, 4)
    Dim myBrush As New SolidBrush(Color.LightSalmon)
    
    ' Draw polygon outline
    g.DrawPolygon(myPen, myPoints)
    
    ' Fill polygon with color
    g.FillPolygon(myBrush, myPoints)
    
    ' Clean up
    myPen.Dispose()
    myBrush.Dispose()
    g.Dispose()
End Sub

Private Sub BtnDrawPie_Click(sender As Object, e As EventArgs) Handles BtnDraw.Click
    Dim g As Graphics = Me.CreateGraphics()
    
    ' Create pen and brush
    Dim myPen As New Pen(Color.Purple, 3)
    Dim myBrush As New SolidBrush(Color.Violet)
    
    ' Define bounding rectangle
    Dim rect As New Rectangle(50, 50, 150, 150)
    
    ' Draw pie outline
    g.DrawPie(myPen, rect, 0, 90)
    
    ' Fill pie segment with color
    g.FillPie(myBrush, rect, 0, 90)
    
    ' Clean up
    myPen.Dispose()
    myBrush.Dispose()
    g.Dispose()
End Sub

Private Sub BtnGradient_Click(sender As Object, e As EventArgs) Handles BtnGradient.Click
    Dim g As Graphics = Me.CreateGraphics()
    
    ' Define rectangle area
    Dim rect As New Rectangle(50, 50, 200, 150)
    
    ' Create gradient brush
    Dim gradientBrush As New Drawing2D.LinearGradientBrush(
        New Point(rect.Left, rect.Top),
        New Point(rect.Right, rect.Bottom),
        Color.Blue,
        Color.LightBlue
    )
    
    ' Fill rectangle with gradient
    g.FillRectangle(gradientBrush, rect)
    
    ' Clean up
    gradientBrush.Dispose()
    g.Dispose()
End Sub