Skip to main content

HScroolBar dan VScrollBar Pada Visual Basic

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
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.

Lihat juga Cara Membuat Aplikasi Kalkulator Sederhana Dengan Visual Basic

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
Kode Program Visual Basic HScrollBar dan VScrollbar
5. Jalankan program (Run) maka tampilannya akan seperti berikut.
 Contoh program Visual Basic HScrollBar dan VScrollBar
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
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
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.

Lihat juga Cara Koneksi Visual Basic dengan MySQL Xampp

Demikianlah cara menggunakan HScroolBar dan VScrollBar pada Visual Basic. Semoga bermanfaat dan salam programmer pemula.

  March 12, 2019
Comment Policy: Tulis Komentar Anda Sesuai dengan Isi Artikel!
Buka Komentar
Tutup Komentar
close