Cara Mengatur Warna Menggunakan Slider–VB6

Selamat datang di Blog Belajar VB untuk postingan kali ini saya akan membahas tentang Slider tepatnya mengenai cara mengatur warna. Langkah-langkahnya sebagai berikut:

- Buka VB6nya kemudian buat sebuah form.

- Kemudian masuk ke Component dan masukan item Microsoft Common Control.

- Pada Form masukan 3 Slider dan 1 text box.

- Kemudian masukan sintak berikut pada Form_load untuk mengatur angka max dan min slider.

Private Sub Form_Load()
Me.Slider1.Max = 255
Me.Slider1.Min = 0

Me.Slider2.Max = 255
Me.Slider2.Min = 0

Me.Slider3.Max = 255
Me.Slider3.Min = 0
End Sub

- dan masukan pada slider1, slider2 dan slider3 untuk mengatur warna berdasarkan RGB.

Private Sub Slider1_Click()
Text1.BackColor = RGB(Me.Slider1.Value, Me.Slider2.Value, Me.Slider3.Value)
End Sub

Private Sub Slider2_Click()
Text1.BackColor = RGB(Me.Slider1.Value, Me.Slider2.Value, Me.Slider3.Value)
End Sub

Private Sub Slider3_Click()
Text1.BackColor = RGB(Me.Slider1.Value, Me.Slider2.Value, Me.Slider3.Value)
End Sub

- Setelah selesai jalankan programnya dan geserkan slider nya maka otomatis warna background text1 akan berubah.

Sekian dulu tutorialnya, selamat mencoba & semoga bermanfaat.