Formunuzu Çift Renkli Yapın

Formumuza Şekil 1 deki gibi renk verebiliriz. Bunun için LinearGradientBrush metodu ile iki rengi fırça darbeleriyle karıştıracağız.  Formun Paint yordamına aşağıdaki kodları yazın.

Şekil 1

Form1.vb

Imports System.Drawing.Drawing2D

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'Form style i none yapıldığı zaman daha güzel bir

        'görünüm almakta.

        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None

    End Sub

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

        Dim pen As New Pen(Color.Black, 3)

        Dim rect As New Rectangle(0, 0, Me.Width, Me.Height)

        Dim renk1, renk2 As Color

        renk1 = Color.SkyBlue

        renk2 = Color.White

        'Bu kısımda karıştırılacak rengi, fırça darbelerinin

        'nereye yapılacağını seçiyoruz. LinearGradientMode.Vertical gibi

        Dim brush As New LinearGradientBrush(rect, renk1, renk2, LinearGradientMode.BackwardDiagonal)

        e.Graphics.DrawRectangle(pen, rect)

        e.Graphics.FillRectangle(brush, rect)

    End Sub

End Class

Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek dileğiyle. Hoşçakalın. Bahadır ŞAHİN