Friday, July 12, 2013

Membuat Tombol Navigasi Pada Visual Basic

Cara Membuat Tombol Navigasi Pada Visual Basic (VB)

Salam koding brow...apa kabar nih?? Kali ini saya mau ngasih sebuah artikel yang sangat menarik untuk dibaca, khusunya yang suka dengan pemrograman Visual Basic (VB) karena kali ini saya akan membahas tentang bagaimana :: cara membuat tombol navigasi pada visual basic (vb) ::
Kalian tahukan yang mana yang dimaksud tombol navigasi?? Itu lho..yang first (<<), previous (<), next (>), last (>>). Okk..langsung saja kita ke cara membuat tombol navigasi pada visual basic (vb)
Pertama, untuk membuat tombol navigasi, silahkan anda masukkan object (button) pada form visual basic (VB) dan ubah name'nya menjadi cmdnav kemudian anda copy button tersebut dan jangan lupa di array ya (setelah dicopy dan dipaste akan muncul konfirmasi, mau di array atau tidak?? Pilih yes untuk meng-array button tersebut) sehingga jumlah button menjadi 4 buah dan ubah caption dari masing-masing button tersebut sehingga menjadi seperti ini  <<  <   >  >>.
Setelah anda selesai membuat tombol navigasinya pada form visual basic, sekarang kita masuk ke kodenya 

Berikut saya kasih kodenya agar tombol navigasi yang anda buat pada visual basic mau berjalan.
Klik 2X tombol <<  kemudian masukkan kode dibawah ini :
Private Sub cmdnav_Click(Index As Integer)
With DataEnvironment1.rsbarang
    Select Case Index
        Case 0
            .MoveFirst
        Case 1
            .MovePrevious
            If .BOF Then .MoveFirst
        Case 2
            .MoveNext
            If .EOF Then .MoveLast
        Case 3
            .MoveLast
    End Select
End With
End Sub
Jangan lupa ya ganti (rsbarang) pada with DataEnvironment1.rsbarang sesuai dengan nama tabel anda yang ada pada DataEnvironment.
Demikian ilmu dari saya tentang || cara membuat tombol navigasi pada visual basic (vb) || semoga artikel ini bermanfaat untuk anda yang sedang belajar bahasa pemrograman dan untuk artikel-artikel selanjutnya nanti akan saya share ke kalian semua, sering-sering aja mampir ke blog ini tokokoding.blogspot.com.
Disqus Comments