Picturebox Renk Değiştirme VB.Net

RENK DEĞİŞTİRME 

Renk değiştirmek için ilk olarak formumuza 3 VScrollBar ve 1 Picturebox ekleyelim. Sonra formumuzu aşağıdaki gibi tasarlayalım. 

İlk olarak declarations kısmına _RGB değişkenini Integer renk değişkenini ise color şeklinde tanımlayalım. Daha sonra form1_load’ına aşağıdaki kodları yazalım. 

[code language=”vb”]

Dim _RGB As Integer
Dim renk As color

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
VScrollBar1.Minimum = 0
VScrollBar1.Maximum = 256
VScrollBar2.Minimum = 0
VScrollBar2.Maximum = 256
VScrollBar3.Minimum = 0
VScrollBar3.Maximum = 256
End Sub[/code]

Kodlarını yazdıktan sonra VScrollBar1_scroll’na diğer kodları yazalım. 

[code language=”vb”]

Private Sub VScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar1.Scroll
_RGB = RGB(VScrollBar1.Value, VScrollBar2.Value, VScrollBar3.Value)
renk = ColorTranslator.FromOle(_RGB)
PictureBox1.BackColor = renk
End Sub[/code]

VScrollBar2_scroll kısmına aşağıdaki kodu yazalım 

[code language=”vb”]

Private Sub VScrollBar2_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar2.Scroll

_RGB = RGB(VScrollBar1.Value, VScrollBar2.Value, VScrollBar3.Value)

renk = ColorTranslator.FromOle(_RGB)
PictureBox1.BackColor = renk
End Sub[/code]

VScrollBar3_scroll kısmına aşağıdaki kodu yazalım. 

[code language=”vb”]

Private Sub VScrollBar3_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar3.Scroll
_RGB = RGB(VScrollBar1.Value, VScrollBar2.Value, VScrollBar3.Value)
renk = ColorTranslator.FromOle(_RGB)
PictureBox1.BackColor = renk
End Sub
End Class[/code]

Kodraları yazma işlemi bittikten sonra programı çalıştırabiliriz.