Program Yapmak | Programcılık Hakkında Her Şey | VİSUAL BASİC 6.0 | C, C++ ve C# Yazılım Dilleri | VB.NET Yazılım Dili

Vscrollbar Ornegi

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
Sincan Laptop tamiratı ile alakalı içeriklerin bulunduğu web siteden bilgilere ulaşabilirsiniz. Sincan'da laptop tamiratını en iyi yapan yerleri sorgulayabilirsiniz. Cihan KOÇ
=> Sen de ücretsiz bir internet sitesi kurmak ister misin? O zaman burayı tıkla! <=