Visual Basic

ironstrike1 wrote:

Thanks Guffa, if I ever need a wise ass I'll be sure to give you a call

Peter Ross (aka ironstrike1) wrote:

What did I offend your boyfriend jerkoff?

Private Sub MyForm_Paint(ByVal sender As Object, _
                         ByVal e As System.Windows.Forms.PaintEventArgs) _
                         Handles MyBase.Paint
   Dim brGradient As System.Drawing.Drawing2D.LinearGradientBrush
   Dim points() As PointF
   '
   ' Validate.
   If (e Is Nothing) Then Return
   If (e.Graphics Is Nothing) Then Return
   '
   ' Get form's client size.
   Dim clientRectangle As New System.Drawing.Rectangle(0, 0, _
                                    Me.ClientSize.Width, Me.ClientSize.Height)
   '
   ' Draw the green gradient triangle.
   brGradient = New System.Drawing.Drawing2D.LinearGradientBrush(clientRectangle, _
                                    Color.Black, Color.LightGreen, _
                                    System.Drawing.Drawing2D.LinearGradientMode.Horizontal)
   points = New PointF() {New PointF(0, 0), _
                          New PointF(clientRectangle.Width, 0), _
                          New PointF(0, clientRectangle.Height)}
   e.Graphics.FillPolygon(brGradient, points)
   brGradient.Dispose()
   '
   ' Draw the blue gradient triangle.
   brGradient = New System.Drawing.Drawing2D.LinearGradientBrush(clientRectangle, _
                                    Color.Blue, Color.Black, _
                                    System.Drawing.Drawing2D.LinearGradientMode.Horizontal)
   points = New PointF() {New PointF(0, clientRectangle.Height), _
                          New PointF(clientRectangle.Width, 0), _
                          New PointF(clientRectangle.Width, clientRectangle.Height)}
   e.Graphics.FillPolygon(brGradient, points)
   brGradient.Dispose()
End Sub