Menggerakan Gambar Memakai Hscrollbar Dan Vscrollbar

14 views
Pada kesempatan artikel kali ini akan dijelaskan cara Menggerakan Gambar Menggunakan HScrollbar dan VScrollbar jadi cara kerja sourcode ini yakni 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, kemudian klik open, ibarat 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 mekanisme 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 sanggup didownload di LINK INI dan agar bermanfaat. 
Author: 
    author
    No related post!