Menggunakan Kontrol ScrollBar pada VB

Ada 2 macam kontrol ScrollBar yaitu HscrollBar dan VscrollBar. Keduanya mempunyai sifat yang sama namun berbeda orientasi. Vscrollbar adalah penggulung layar yang letaknya vertikal sedangkan Hscrollbar menggulung layar arah horizontal. Properti dari kontrol tersebut yang cukup penting adalah properti Min dan Max yang merepresentasikan nilai jangkauan minimum dan maksimum. Properti lain yang penting pada waktu run-time adalah Value, yang selalu mengembalikan nilai posisi indikator yang terdapat pada scrollbar.

Ada 2 kejadian (Event) penting dari scroolbar yaitu kejadian Change yang akan dipanggil pada saat scrollbar diklik dan kejadian geser (Scroll) yang dipanggil ketika indikator pada scrollbar mengalami perubahan.

Contoh penggunaanya adalah menggeser posisi Image ke atas dan ke bawah seperti terlihat pada gambar berikut.

Kode programnya seperti berikut ini:

Private Sub vsbGambar_Change()

imgGambar.Top = -vsbGambar.Value

End Sub

 

Private Sub vsbGambar_Scroll()

imgGambar.Top = -vsbGambar.Value

End Sub

Event Scroll, akan dibangkitkan ketika pemakai melakukan pergeseran terhadap Bar dengan menggunakan drag pada tombol kiri mouse, jadi Event Scroll akan terjadi ketika pemakai melakukan pergeseran dengan menekan tombol kiri mouse, dan diakhiri dengan Event Cahnge ketika pemakai melepas penekanan mouse. Jadi anda harus memanfaatkan kedua event tersebut untuk mendapatkan hasil yang baik dalam pemakaian ScrollBar.

LATIHAN

KODE PROGRAM

Private Sub HScroll1_Change()

Text1.Text = HScroll1.Value

Text3.Text = HScroll1.Value * HScroll2.Value

End Sub

Private Sub HScroll2_Change()

Text2.Text = HScroll2.Value

Text3.Text = HScroll1.Value * HScroll2.Value

End Sub

Private Sub Command1_Click()

END

End Sub

 

Print Friendly, PDF & Email
Hari

Written by 

admin "Ilmu Itu Tak Ada Yang Tak Bermanfaat"

Leave a Reply

Your email address will not be published.