MENGGERAKKAN GAMBAR MENGGUNAKAN SCROLLBAR (Visual basic 2010)




Kali ini saya akan memberikan cara bagaimana menggerakkan gambar menggunakan scrollbar. gambar yang kita gunakan berasal dari tulisan Wingdings.... kita mulai saja....
buatlah tampilan seperti ini...


Property :

Form :
Text = Smiling Face
Size = 400;400

Hscrollbar :
Name = hsb
Value = 66
Maximum = 312

Vscrollbar :
Name = vsb
Value = 106
Maximum = 347
Minimum = 40

Label :
Name = lblgambar
Location = 66;106

Textbox :
Name = txthasil
Enabled = False
BorderStyle = Fixed3D

Size Form, Location Label harus sesuai dengan property yang saya buat, karena itu akan mempengaruhi hasil yang akan didapat.
Kita akan membuat gambar atau label tidak bergerak diluar Form dan tidak melebihi tiap-tiap scrollbar, makanya ukuran form sama lokasi label harus sesuai.

Well, jika sudah selesai membuat form, maka kita lanjut ke code, silahkan di ikuti :

Public Class tugas4
------------------------------------------------------------------------------
    Private Sub tugas4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.MdiParent = menuutama
        txthasil.Text = "[ " & lblgambar.Location.Y & ", " & lblgambar.Location.X & " ]"
        lblgambar.Text = "J"
        lblgambar.Font = New System.Drawing.Font("Wingdings", 20)

    End Sub
------------------------------------------------------------------------------
    Private Sub hsb_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles hsb.Scroll

        lblgambar.Location = New Point(hsb.Value, lblgambar.Location.Y)
        txthasil.Text = "[ " & Format(lblgambar.Location.Y) & ", " & Format(lblgambar.Location.X) & " ]"

    End Sub
----------------------------------------------------------------------------
    Private Sub vsb_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles vsb.Scroll

        lblgambar.Location = New Point(hsb.Value, vsb.Value)
        txthasil.Text = "[ " & Format(lblgambar.Location.Y) & ", " & Format(lblgambar.Location.X) & " ]"

    End Sub
------------------------------------------------------------------------------
End Class

apabila anda tidak mengerti code yang ada diatas, anda boleh bertanya kepada saya melalui coment, yah, saya berharap penjelasan saya bisa dimengerti.

Setelah selesai membuat code diatas, maka hasilnya akan seperti ini :



Chang Min Web Developer

Semoga apa yang Saya postingkan dapat bermanfaat bagi yang sedang membaca, kritik, saran atau komentar dapat disampaikan pada komen dibawah ini, Terimas kasih banyak

11 comments:

  1. kalo buat vscrollbarnya sendiri ga pake hscrollbar gimana?

    ReplyDelete
  2. yah tinggal ubah aja nilai Y sesuai yang diinginkan. kalau kamu gak ada horizontal scrollbarnya, berrati kan gk ada nilai defaultnya, makanya harus dikasih dulu nilai defaultnya

    ReplyDelete
  3. kk aaku ada tugas Buat Program Parkir Kendaraan Masuk dan keluar, gimana sorce codenya?
    Mohon Bantuannya donk..

    ReplyDelete
  4. Replies
    1. Form yang dapat berjalan di dalam Form. Ketika kita pakai MDIPARENTnya, kita bisa memasukkan sebuah form kedalam form yang kita buat MDIPARENT

      Delete
    2. saya buat menuutama ada garis biru di bawahnya itu kenapa kak?

      Delete
    3. Sekarang versi visual studio itu udah smpai VS2017 dan soal garis, itu bisa beda2 pengertian disetiap versinya. Kalau biru itu kamu masih bisa jalankan program. Berarti itu bisa aja karena variabelmu tidak dipakai. Bisa jadi juga nilai kamu tidak ada nilai defaultnya.

      Delete
  5. Private Sub tugas4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    Me.MdiParent = menuutama
    txthasil.Text = "[ " & lblgambar.Location.Y & ", " & lblgambar.Location.X & " ]"
    lblgambar.Text = "J"
    lblgambar.Font = New System.Drawing.Font("Wingdings", 20)

    End Sub

    kenapa harus ada skrip itu ?
    tertulis lblgbr.text = "j" tpi ga ada j nya
    *maaf masih pemula

    ReplyDelete
  6. Gan mau tanya dong
    Klo sy pake vscroll ke bawah tp objekY ke atas gmn ya???
    Thx

    ReplyDelete