[علي بنيان]

السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة


'39-جعل خلفية فورم بطريقة متدرجة

PHP كود :

Public Class Form1

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

        Dim grbrush As System.Drawing. _
        Drawing2D.LinearGradientBrush
        grbrush = New System.Drawing.Drawing2D. _
        LinearGradientBrush(New Point(0, 0), _
        New Point(Me.Width, Me.Height), _
        Color.Gold, Color.Blue)
        Me.CreateGraphics.FillRectangle _
        (grbrush, New Rectangle(0, 0, Me.Width, Me.Height))


    End Sub
End Class

'39-جعل خلفية فورم بطريقة متدرجة 


السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة


'40-وضع لون متدرج بطريقة اخرى

PHP كود :

Public Class Form1

    Private Sub DrawGradient(ByVal color1 As  _
    Color, ByVal color2 As Color, ByVal mode As  _
     System.Drawing.Drawing2D.LinearGradientMode)
        Dim a As New Drawing2D.LinearGradientBrush _
        (New RectangleF(0, 0, Me.Width, Me.Height), _
         color1, color2, mode)
        Dim g As Graphics = Me.CreateGraphics
        g.FillRectangle(a, New RectangleF _
        (0, 0, Me.Width, Me.Height))
        g.Dispose()
    End Sub

    Protected Overrides Sub OnPaint _
    (ByVal pe As PaintEventArgs)
        DrawGradient(Color.Aqua, Color.Blue, _
    Drawing.Drawing2D.LinearGradientMode.Vertical)
    End Sub

End Class

'40-وضع لون متدرج بطريقة اخرى 


'41-طريقة اخرى لوضع لون متدرج لخلفية الفورم

PHP كود :

Imports System.Drawing.Drawing2D

Public Class Form1

    Protected Overrides Sub OnPaint _
        (ByVal e As PaintEventArgs)
        MyBase.OnPaint(e)
        Dim g As Graphics = e.Graphics
        g.SmoothingMode = SmoothingMode.HighQuality
        Dim gPath As GraphicsPath = New GraphicsPath
        Dim r As Rectangle = New Rectangle _
        (0, 0, Me.Width, Me.Height)
        gPath.AddRectangle(r)
        Dim lb As LinearGradientBrush = _
        New LinearGradientBrush _
        (r, Color.White, Color.Blue, _
        LinearGradientMode.Vertical)
        g.FillPath(lb, gPath)
    End Sub

End Class

'41-طريقة اخرى لوضع لون متدرج لخلفية الفورم 


'42-عمل تدرج لوني بطريقة مبسطة

PHP كود :

Imports System.Drawing.Drawing2D

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim rect As New Rectangle(0, 0, Me.Width, Me.Height)
        Dim gc As Graphics = Me.CreateGraphics
        Dim gradientBrush As New LinearGradientBrush(rect, _
        Color.Blue, Color.Black, LinearGradientMode.Horizontal)
        gc.FillRectangle(gradientBrush, rect)

    End Sub
End Class

'42-عمل تدرج لوني بطريقة مبسطة