Birazdan yeni web sitemize yönlendirileceksiniz...!!
 ----
Eğer yönlendirilmezseniz "Yeni web sitemize gitmek için buraya tıklayın..."


Visual Basic Dersleri

Picturebox Renk Değiştirme

Picturebox Renk Değiştirme.

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

 

renk-gorunum 

İ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. 

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

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

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

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

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

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

 

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

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

renk-gorunum1 






Bu sayfa hakkında yorum ekle:
İsminiz:
E-mail adresiniz:
Siteniz:
Mesajın:

Bugün 13 ziyaretçikişi burdaydı!
=> Sen de ücretsiz bir internet sitesi kurmak ister misin? O zaman burayı tıkla! <=