HScroolBar dan VScrollBar Pada Visual Basic
"Menggunakan HScrollBar dan VScrollBar Pada Visual Basic 6.0, Contoh kode program aplikasi VB 6 Scroll Bar"
5 min read
Menggunakan HScrollBar dan VScrollBar Pada Visual Basic 6.0 - HScrollBar dan VscrollBar adalah 2 komponen ToolBox yang memiliki fungsi yang sama, yaitu untuk melakukan scrolling bar pada suatu tampilan layar aplikasi. |
| HScroolBar dan VScrollBar Pada Visual Basic |
HScrollBar merupakan komponen yang digunakan untuk menggeser dari kiri ke kanan suatu komponen dalam aplikasi. Sedangkan VScrollBar merupakan komponen yang digunakan untuk menggeser dari atas ke bawah suatu komponen dalam aplikasi.
Sebelum membuat HScrollBar dan VScrollBar, berikut beberapa properties yang digunakan untuk mengatur komponen ini.
• LargeChage berfungsi untuk menentukan ukuran perubahan (Value) ketika user menggeser bar.
• Max berfungsi untuk menentukan nilai (Value) Maximum.
• Min berfungsi untuk menentukan nilai (Value) Minimum.
• SmallChange berfungsi untuk menentukan nilai perubahan ketika user melakukan klik pada tanda panah.
• Value berfungsi untuk menentukan nilai scroll bar.
Sebagai contoh, kita akan menggunakan komponen HScrollBar dan VScrollBar pada ToolBox untuk membuat suatu aplikasi. Nantinya, aplikasi sederhana ini hanya menunjukkan cara kerja HScrollBar dan VScrollBar.
Untuk lebih jelasnya, berikut contoh program Visual Basic yang menggunakan Scroll Bar.
1. Buat Project EXE baru di Visual Basic 6.0.
2. Insert komponen yang ada pada ToolBox ke dalam Form.
- HScrollBar (Name: HScroll1)
- VScrollBar (Name: VScroll1)
- PictureBox
- Image (Name: Image1)
3. Letakkan Image1 di dalam PictureBox. Untuk mengganti gambar/foto, pada properties Image1, klik Picture.
4. Copy kode program berikut dan paste di view code.
Private Sub Form_Load()
Image1.Height = 1000
Image1.Width = 1000
HScroll1.LargeChange = 100
HScroll1.Min = 1000
HScroll1.Max = 8000
VScroll1.LargeChange = 100
VScroll1.Min = 1000
VScroll1.Max = 5000
End Sub
Private Sub VScroll1_Change()
Image1.Height = VScroll1.Value
End Sub
Private Sub HScroll1_Change()
Image1.Width = HScroll1.Value
End Sub
Berikut tampilannya dalam view code.
 |
| Kode Program Visual Basic HScrollBar dan VScrollbar |
5. Jalankan program (Run) maka tampilannya akan seperti berikut.
 |
| Contoh program Visual Basic HScrollBar dan VScrollBar |
Dari sini, kita bisa menggulung gambar (Image1) yang ada di dalam PictureBox dari kiri ke kanan dan dari atas ke bawah.
Contoh Program Visual Basic HScroll dan VScroll
Untuk yang lebih sederhana lagi, berikut contoh program Visual Basic HScroll dan VScroll.
1. Buat Project EXE baru.
2. Pada form1, masukkan kontrol yang ada pada toolbox berikut ini.
- HScrollBar (Name: HScroll1)
- VScrollBar (Name: VScroll1)
- Label1 (Name: Label1)
- Label2 (Name: Label2)
 |
| Program Visual Basic HScrollBar dan VScrollBar |
3. Copy kode program Visual Basic di bawah ini dan pastekan di view code.
Private Sub Form_Load()
HScroll1.Max = 100
VScroll1.Min = 0
VScroll1.Max = 100
HScroll1_Change
VScroll1_Change
End Sub
Private Sub HScroll1_Change()
Label1.Caption = HScroll1.Value
End Sub
Private Sub VScroll1_Change()
Label2.Caption = VScroll1.Value
End Sub
4. Jalankan (Run) program yang dibuat.
5. Tampilan program HScrollBar dan VScrollBar yang telah berhasil dibuat.
 |
| Contoh HScrollBar dan VScrollBar Visual Basic 6.0 |
Jadi, program ini bekerja ketika HScroll di geser maka nilai pada label1 akan berubah dengan nilai minimal 0 dan maksimal 100.
HScroll1.Max = 100
VScroll1.Min = 0
Dan untuk VScroll juga sama, nilai minimal 0 dan maksimal 100 jika scroll dilakukan.
Demikianlah cara menggunakan HScroolBar dan VScrollBar pada Visual Basic. Semoga bermanfaat dan salam programmer pemula.