• Home
 · 
• Graphics
 · 
• Move Colors to Left to Right,Right to Left {Usig vb.net}

Move Colors to Left to Right,Right to Left {Usig vb.net}

Move Colors to Left to Right,Right to Left {Usig vb.net}

API Declarations


.Drawing
.Drawing.Drawing2D

''' <summary>
''' Developed By Gehan Fernando
''' Description : Move Colors to Left to Right,Right to Left
''' Date : 23-12-2008
''' Mail Me : [email protected] / [email protected]
''' </summary>
''' <remarks></remarks>



Rate Move Colors to Left to Right,Right to Left {Usig vb.net}

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Private _middlePoint As Single = 0
    Private _fixedValue As Single = 0.1

    Private Sub PictureBox1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint

        Dim pnt As New Point(0, 0)
        Dim sz As New Size(PictureBox1.ClientSize.Width, PictureBox1.ClientSize.Height)
        Dim rec As New Rectangle(pnt, sz)
        Dim br As New LinearGradientBrush(rec, Color.Red, Color.Black, _middlePoint)

        Dim cbLnd As New ColorBlend()
        With cbLnd
            .Colors = New Color() {Color.Red, Color.Lime, Color.Black}
            .Positions = New Single() {0.0, _middlePoint, 1.0}
        End With

        br.InterpolationColors = cbLnd

        With e.Graphics
            .Clear(PictureBox1.BackColor)
            .CompositingMode = CompositingMode.SourceOver
            .CompositingQuality = CompositingQuality.HighQuality
            .FillRectangle(br, rec)
        End With

        br.Dispose()

        _middlePoint += _fixedValue
        If _middlePoint > 1 OrElse _middlePoint < 0 Then _fixedValue = -_fixedValue

    End Sub

    Private Sub TimerRotate_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerRotate.Tick

        PictureBox1.Invalidate()

    End Sub

End Class