Menggunakan ScrollBar pada Picture Box–VB6

Scroll bar mempunyai fungsi untuk menggeserkan sebuah file bisa gambar, dokumen atau yang lain sebagainya, yang mana file tersebut mempunyai ukuran yang besar. Pada tutorial ini saya akan membahas mengenai cara menerapkan scrollbar pada sebuah picturebox, langsung saja ke langkah-langkahnya:

- Buka VB6 nya lalu pilih standard exe.

- Masukan 1 buah picturebox , 1 HScrollBar dan 1 VScrollBar. seperti gambar dibawah ini, dan jangan lupa untuk memasukan gambar pada picture box nya.

- Dalam memasukan gambar usahakan dengan ukuran yang lumayan besar.

- Kemudian masukan sintak berikut di general declaration.

Option Explicit

- lalu buat sebuah Procedure Sub untuk mensetting ukuran gambar:

Sub SetPicSize()
    If Picture2.ScaleWidth > Picture1.ScaleWidth Then
        HScroll1.Enabled = True
        HScroll1.Max = Picture2.ScaleWidth - Picture1.ScaleWidth
        HScroll1.LargeChange = Int(HScroll1.Max \ 25) + 1
        HScroll1.SmallChange = Int(HScroll1.Max \ 200) + 1
    Else
        HScroll1.Enabled = False
    End If
   
    If Picture2.ScaleHeight > Picture1.ScaleHeight Then '
        VScroll1.Enabled = True
        VScroll1.Max = Picture2.ScaleHeight - Picture1.ScaleHeight
        VScroll1.LargeChange = Int(VScroll1.Max \ 25) + 1
        VScroll1.SmallChange = Int(VScroll1.Max \ 200) + 1
    Else
        VScroll1.Enabled = False
    End If
End Sub

- Masukan sintak pemanggilan settingan ukuran gambar pada Form Load:

Private Sub Form_Load()
    Call SetPicSize
End Sub

- dan masukan sintak berikut pada HScroll1 dan HScroll2, yang berfungsi untuk menggerakan gambar:

Private Sub HScroll1_Change()
    Picture2.Width = Picture2.Width + HScroll1.Value
    Picture2.Left = 0 - HScroll1.Value
End Sub

Private Sub VScroll1_Change()
    Picture2.Height = Picture2.Height + VScroll1.Value
    Picture2.Top = 0 - VScroll1.Value
End Sub

- Setelah selesai, jalankan programnya dan coba kita gerakan Scrollbar tersebut maka otomatis gambar akan bergerak menurut posisi Scrollbar.

- Untuk lebih lanjut silahkan anda masukan gambar lainnya.

Terimakasih sudah berkunjung di blog ini, Selamat mencoba & semoga bermanfaat.