Menggerakan Gambar Menggunakan HScrollbar dan VScrollbar

Pada kesempatan artikel kali ini akan dijelaskan cara Menggerakan Gambar Menggunakan HScrollbar dan VScrollbar jadi cara kerja sourcode ini yaitu menggeser atau menggerakan gambar naik turun dan ke kiri dan ke kanan. Langkah pertama buatlah sebuah form pada Ms. Visual Basic 6.0 kemudian tambahkan komponen

1. PictureBox

2. VScrollbar

3. HScrollbar

Klik pada picturebox kemudian pada jendela properties klik Picture kemudian cari dan pilih file type image di pc agan, lalu klik open, seperti langkah yang terdapat pada gambar di bawah ini :

Untuk setting properties dari komponen diatas sebagai berikut : 

Nama Komponen	Name
PictureBox	InnerPict
VScrollBar	VBar
HScrollBar	HBar

Buatlah sebuah Sub Function dengan nama SetScrollBars, kemudian copykan syntak dibawah ini 

Private Sub SetScrollBars()
    VBar.Min = 0
    VBar.Max = OuterPict.ScaleHeight - InnerPict.Height
    VBar.LargeChange = OuterPict.ScaleHeight
    VBar.SmallChange = OuterPict.ScaleHeight / 5
   
    HBar.Min = 0
    HBar.Max = OuterPict.ScaleWidth - InnerPict.Width
    HBar.LargeChange = OuterPict.ScaleWidth
    HBar.SmallChange = OuterPict.ScaleWidth / 5
End Sub

Kemudian double klik pada form pilih prosedur Form_Resize dan copykan juga syntak dibawah ini

Private Sub Form_Resize()
Dim got_wid As Single
Dim got_hgt As Single
Dim need_wid As Single
Dim need_hgt As Single
Dim need_hbar As Boolean
Dim need_vbar As Boolean

If WindowState = vbMinimized Then Exit Sub

need_wid = InnerPict.Width + (OuterPict.Width - OuterPict.ScaleWidth)
need_hgt = InnerPict.Height + (OuterPict.Height - OuterPict.ScaleHeight)
got_wid = ScaleWidth
got_hgt = ScaleHeight

need_hbar = (need_wid > got_wid)
If need_hbar Then got_hgt = got_hgt - HBar.Height
   need_vbar = (need_hgt > got_hgt)
   If need_vbar Then
      got_wid = got_wid - VBar.Width
      If Not need_hbar Then
         need_hbar = (need_wid > got_wid)
         If need_hbar Then got_hgt = got_hgt - HBar.Height
      End If
   End If
  OuterPict.Move 0, 0, got_wid, got_hgt

  If need_hbar Then
     HBar.Move 0, got_hgt, got_wid
     HBar.Visible = True
  Else
     HBar.Visible = False
  End If

  If need_vbar Then
     VBar.Move got_wid, 0, VBar.Width, got_hgt
     VBar.Visible = True
  Else
     VBar.Visible = False
  End If
  SetScrollBars
End Sub

Dan selanjutnya copykan juga syntak dibawah ini

Private Sub HBar_Change()
InnerPict.Left = HBar.Value
End Sub

Private Sub HBar_Scroll()
InnerPict.Left = HBar.Value
End Sub

Simpan dan Jalankan RUN/F5, coba agan klik dan tahan (drag) pada ScrollBar Horizontal dan ScrollBar Vertikal, maka gambar akan mengikuti arah gerak dari secara vertikal maupun horizonta. Untuk sourcodenya bisa didownload di LINK INI dan semoga bermanfaat.