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. Anonymous30 November 2013 at 17:20

    kalo buat vscrollbarnya sendiri ga pake hscrollbar gimana?

    ReplyDelete
  2. Chang Min20 December 2014 at 15:52

    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. Unknown31 July 2015 at 11:09

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

    ReplyDelete
  4. Chang Min3 August 2015 at 09:08

    kirim soalnya...

    ReplyDelete
  5. Unknown17 April 2016 at 11:19

    mdiparent itu apa ya ?

    ReplyDelete
    Replies
    1. Chang Min18 April 2016 at 08:05

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

      Delete
    2. Unknown9 October 2017 at 23:09

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

      Delete
    3. Chang Min10 October 2017 at 09:23

      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
  6. Unknown17 April 2016 at 11:20

    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
  7. Shidiq Selalu Berbagi7 August 2017 at 18:01

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

    ReplyDelete

Subscribe to: Post Comments (Atom)