Cara Merubah Ukuran Image di VB6 menggunakan HScrollBar dan VScrollBar
Trik kali ini saya akan membagikan bagaimana menerapkan HScrollbar dan VScrollbar di VB6 dengan bantuan sebuah kontrol image untuk memperbesar atau memeperkecil suatu gambar dengan kedua kontrol tersebut.
Berikut adalah pengertian antara HScrollbar dan VScrollbar. HScrollbar adalah sebuah komponen yang digunakan untuk memasukan data secara analog dengan menggeser tombol scroll ataupun menekan tombol [Left] dan [Right] sedangkan VScrollbar sebenarnya memilik fungsi yang sama dengan HScrollbar. Namun VScrollbar untuk arah atas-bawah, sedangkan HScrollbar untuk arah kiri-kanan. Berikut adalah properti yang digunakan dalam HScrollbar dan VScrollbar :
- LargeChange -> Untuk menentukan ukuran perubahan (Value) ketike user menggeser bar
- Max -> Menentukan nilai (value) Maximum
- Min -> Menentukan nilai (value) Minimum
- SmallChange -> Untuk menentukan nilai perubahan value ketika user melakukan klik pada tanda panah
- Value -> Untuk mendapatkan/menentukan nilai HScrollBar
Dengan kedua kontrol itulah kita dapat merubah ukuran (Width dan Height) suatu gambar hanya dengan menggeser sebuah Scroll yang otomatis akan merubah tinggi dan lebar image tersebut.
Merubah Ukuran Image di VB6 menggunakan HScrollBar dan VScrollBar
Berikut adalah langkah langkah pembuatannya:
1. Buka form VB6 Anda
2. Tanamkan 1 VScrollBar, 1 HScrollbar, 1 PictureBox, 1 Image dan beberapa Label
3. Letakan Image1 didalam PictureBox kemudian berikan gambar didalam Image1
4. Desainlah seperti gambar dibawah ini:
 |
| Desain Form |
5. Setelah itu Anda ketik kode berikut dibawah ini di jendela kode :
Private Sub Form_Load()
Image1.Height = 1000
Image1.Width = 1000
VScroll1.LargeChange = 1
VScroll1.Left = 3600
VScroll1.Min = 1000
VScroll1.Max = 3000
HScroll2.LargeChange = 100
HScroll2.Left = 240
HScroll2.Min = 1000
HScroll2.Max = 3000
End Sub
Private Sub HScroll2_Change()
Image1.Width = HScroll2.Value
End Sub
Private Sub VScroll1_Change()
Image1.Height = VScroll1.Value
End Sub
6. Simpan kode Anda dan jalankan program
7. Setelah program berhasil dijalankan coba perbesar/perkecil gambar dengan cara menarik
HSrollBar dan VScrollBar.
Demikian Cara Menggunakan HScrollBar dan VScrollBar Untuk Merubah Ukuran Image di VB6. Selamat mencoba semoga berhasil.