HScrollBar atau Horizontal ScrollBar ternyata dapat digunakan untuk merubah warna form Visual Basic anda. Mau tahu caranya??Ikuti langkah-langkah berikut ini.
1.Buka form Visual Basic anda2.Buat 4 buah kontrol label, 3 buah HScrollBar dan 1 buah CommandButton
3.Atur propertiesnya sehingga menjadi gambar 1 (dibawah)
Dalam hal ini:
Label paling atas = LB1 ------> Caption dikosongkan saja
HScrollBar = HS1, HS2,HS3----> Ketik pada properti Name
CommandButton = CB1-----> Di Caption ketikkan "KELUAR"
4.Ketikkan kode berikut pada masing-masing kontrol:
Kode:
Private Sub Form_Load()
Me.Caption = "Warna Form"
End Sub
------------------------------------------------------------------------------------------------
Private Sub HS1_Change()
Me.BackColor = RGB(HS1.Value, HS2.Value, HS3.Value)
LB1.Caption = "MERAH = " & HS1.Value & " ," & "HIJAU = " & HS2.Value & "," & "BIRU = " & HS3.Value
End Sub
------------------------------------------------------------------------------------------------
Private Sub HS2_Change()
Me.BackColor = RGB(HS1.Value, HS2.Value, HS3.Value)
LB1.Caption = "MERAH = " & HS1.Value & " ," & "HIJAU = " & HS2.Value & "," & "BIRU = " & HS3.Value
End Sub
------------------------------------------------------------------------------------------------
Private Sub HS3_Change()
Me.BackColor = RGB(HS1.Value, HS2.Value, HS3.Value)
LB1.Caption = "MERAH = " & HS1.Value & " ," & "HIJAU = " & HS2.Value & "," & "BIRU = " & HS3.Value
End Sub
------------------------------------------------------------------------------------------------
Private Sub CB1_Click()
End
End Sub
Hasilnya lihat pada gambar 1 berikut ini:
Anda tinggal geser HSrollBar ke arah kanan sejauh keinginan anda, maka warna form akan otomatis berubah. Seperti gambar di atas HScrollBar di label MERAH digeser penuh, maka form berubah menjadi warna MERAH. Berminat mencoba HIJAU dan BIRU???Coba aja trik ini..!!!
Posting Komentar