Herkese Merhaba,
Bu blog içeriğimizde sizlere VB.Net üzerine ekleyeceğiniz picturebox’ın rengini nasıl değiştirebileceğinizi aktaracağız. Aşağıdaki ekran görüntüsündeki gibi bir form tasarlayabilirsiniz. Uygulamada vb.net içerisinde renk paleti yapmaya dair kodlama örneklerini paylaşmamızın yanı sıra kısa bir video da hazırladık. Kodların genel çalışma prensibinden bahsettik.
 |
| vb.net renk paleti yapımı görseli |
Kodlama Öncesi Tavsiyeler
Öncelikle 3 adet VScrollBar ve 1 adet PictureBox eklemelisiniz. Her scrollbar hareket ettirildiğinde otomatik olarak değerler yer değiştiği için her seferinde kodumuz çalışacaktır. 2 adet değişkeni her nesnenin içerisinden erişebilmem için Public Class’ın altında tanımlıyoruz. Bu sayede istediğimiz noktadan ulaşılabilir oluyorlar.
Kodlarımız
Public Class Form1
Dim Sayıisalrenk As Integer
Dim renk As Color
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
VScrollBar1.Minimum = 0
VScrollBar1.Maximum = 256
'www.programlamahocam.com
End Sub
Private Sub VScrollBar1_Scroll(sender As Object, e As ScrollEventArgs) Handles VScrollBar1.Scroll
Sayıisalrenk = RGB(VScrollBar1.Value, VScrollBar2.Value, VScrollBar3.Value)
renk = ColorTranslator.FromOle(Sayıisalrenk)
PictureBox1.BackColor = renk
'www.programlamahocam.com
End Sub
Private Sub VScrollBar2_Scroll(sender As Object, e As ScrollEventArgs) Handles VScrollBar2.Scroll
Sayıisalrenk = RGB(VScrollBar1.Value, VScrollBar2.Value, VScrollBar3.Value)
renk = ColorTranslator.FromOle(Sayıisalrenk)
PictureBox1.BackColor = renk
'www.programlamahocam.com
End Sub
Private Sub VScrollBar3_Scroll(sender As Object, e As ScrollEventArgs) Handles VScrollBar3.Scroll
Sayıisalrenk = RGB(VScrollBar1.Value, VScrollBar2.Value, VScrollBar3.Value)
renk = ColorTranslator.FromOle(Sayıisalrenk)
PictureBox1.BackColor = renk
'www.programlamahocam.com
End Sub
End Class
Kaynak Videomuz
Sizler için hazırladığımız kaynak niteliğindeki anlatım videomuzu izleyebilirsiniz. Kodları nereye nasıl koyduğumuz ve nasıl göründüğünü görebilmeniz açısından oldukça değerli olduğunu düşünüyorum