Cara Merubah Ukuran Image di VB6 menggunakan HScrollBar dan VScrollBar

Artikel Terkait Tutorial VB6
Trik kali ini kami 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 HScrollbar1 PictureBox, 1 Image dan beberapa Label
3. Letakan Image1 didalam PictureBox kemudian berikan gambar didalam Image1
4. Desainlah seperti gambar dibawah ini:
Merubah Ukuran Image di VB6
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.


Selain Sebagai Penyedia Panduan Belajar Database dan Tutorial Pemrograman, Kami Juga Membagikan Kumpulan Source Code Program Aplikasi dan Ebook Pemrograman Terlengkap yang Bisa Anda Dapatkan Secara Gratis di Halaman :


Rekomendasi Web Hosting
  1. 20rb perbulan. Diskon hingga 40% kode kupon: MCP Daftar disini (apache).
  2. 10rb perbulan. Diskon hingga 75% kode kupon: MCP Daftar disini (litespeed).
  3. 10rb perbulan. Diskon hingga 70% kode kupon: aff-MCP Daftar disini (apache).