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

Share This:

Facebook Twitter Pinterest Linkedin Whatsapp Whatsapp

About Bahadır Şahin

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.