Başlangıç > Kodlar > Visual Basic 6 ile Vscrollbar örneği

Visual Basic 6 ile Vscrollbar örneği


Vscrollbarlar ile picturebox ın rengini deiştirin forma 3 tane vscrollbar 3 tane label ve bi tane picturebox koyup kodları kopyalıyoruz.not/vscrollbarların maximum u 255 olacak...

Dim a, b, c As String
Private Sub VScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar1.Scroll
a = VScrollBar1.Value
Label1.Text = VScrollBar1.Value
PictureBox1.BackColor = Drawing.ColorTranslator.FromOle(RGB(a, b, c))

End Sub

Private Sub VScrollBar2_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar2.Scroll
b = VScrollBar2.Value
Label2.Text = VScrollBar2.Value
PictureBox1.BackColor = Drawing.ColorTranslator.FromOle(RGB(a, b, c))
End Sub

Private Sub VScrollBar3_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar3.Scroll
c = VScrollBar3.Value
Label3.Text = VScrollBar3.Value
PictureBox1.BackColor = Drawing.ColorTranslator.FromOle(RGB(a, b, c))
End Sub


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: