HScroll dan VScroll untuk menggeser Object saat runtime

Baca Juga

HScroll dan VScroll, inilah 2 komponen vb6 yang digunakan untuk menggulung/menggeser object ke posisi tertentu sebesar nilai tertentu. Itulah yang saya mengerti tentang HScroll dan VScroll ini. Bagaimanakah cara menggunakannya ?

Untuk latihan kita membutuhkan 1 buah picturebox, sebuah image, 1 buah VScrool dan 1 buah HScroll. Letakkan pictureBox kedalam Form, diikuti dengan meletakkan image (-bisa diganti object/komponen lain-) didalam pictureBox, jangan lupa set properties imagenya untuk menambahkan gambar kedalam image. Terakhir letakkan HScroll dibawah PictureBox dan VScroll disamping kiri PictureBox. Sehingga nampak seperti gambar dibawah ini.

Untuk Menggulung object ke atas/kebawah masukkan code berikut pada event Change VScroll :

Image1.Top = (VScroll1.Value + 1) * -1

Untuk Menggulung object ke kiri/kanan masukkan code berikut pada event Change HScroll :

Image1.Left = (HScroll1.Value + 1) * -1

Nah sampai disini gambar sudah dapat digeser-geser, kemudian tambahkan code dibawah ini pada event Form_Load :

HScroll1.Max = Image1.Width - Picture1.Width + 60
HScroll1.SmallChange = 100
VScroll1.SmallChange = 100

VScroll1.Max = Image1.Height - Picture1.Width + 60
VScroll1.SmallChange = 100
VScroll1.LargeChange = 100

Sample Project dapat di download disini :