Metode Next Page dan Previous Page dengan Tabcontrol

Assalamu'alaikum Wr. Wb....Selamat berjumpa lagi..
Kali ini saya akan membahas pembuatan apilkasi dengan metode Next Page dan Previous Page.

Biasanya metode ini diperuntukan bagi aplikasi yang membutuhkan beberapa halaman dan menuntun user untuk input data secara bertahap. Metode ini banyak diterapkan dalam sistem aplikasi wizard. sebagai contoh misalnya aplikasi input data karyawan, dimana user harus input data selengkap mungkin sehingga membutuhkan banyak halaman.

 Baik kita mulai pembahasan metode ini :
    1. Buat sebuah form
    2. Buat Tabcontrol
    3. Klik Properties Tabcontrol --> TabPages lihat gambar (klik tombol ...)

 
            akan muncul gambar sebagai berikut :

          buatlah tabpage dengan klik tombol add sebanyak 4 buah dengan properties sbb :
             Text : dihapus/dihilangkan sehingga diatas tab nanti tidak ada nama tab
     
    4. Buat 3 tombol didalam form dengan nama : Cancel, Next dan Prev seperti gbr dibawah ini :
        berinama BtnBatal, BtnNext dan BtnPrev

    5. Buat object bebas disetiap tabpage. agar kita tahu apakah tombol next - prev bekerja.
    6. ketik list prog ini dalam form load

   Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        TabControl1.SelectedIndex = 0
        BtnNext.Enabled = True
        BtnPrev.Enabled = False
        TabControl1.Appearance = TabAppearance.FlatButtons
        TabControl1.ItemSize = New Size(0, 1)
        TabControl1.SizeMode = TabSizeMode.Fixed
    End Sub

    7. Ketik list Prog berikut dalam prosedur BtnNext Klik sbb :

Private Sub BtnNext_Click(sender As System.Object, e As System.EventArgs) Handles BtnNext.Click
        For Each tc In {TabControl1}
            With tc
                If TabControl1.SelectedIndex = 0 Then
                     ---- isi sesuai kebutuhan aplikasi
                ElseIf TabControl1.SelectedIndex = 1 Then
                     ---- isi sesuai kebutuhan aplikasi
                ElseIf TabControl1.SelectedIndex = 2 Then
                    BtnNext.Enabled = False                
                    ---- isi sesuai kebutuhan aplikasi
                End If

                TabControl1.SelectedIndex = TabControl1.SelectedIndex + 1
                BtnPrev.Enabled = True

           End With
       Next
End Sub

    8. Ketik list prog. dalam prosedur BtnPrev klik sbb :

 Private Sub BtnPrev_Click(sender As System.Object, e As System.EventArgs) Handles BtnPrev.Click
      For Each tc In {TabControl1}
            With tc
                TabControl1.SelectedIndex = TabControl1.SelectedIndex - 1
                BtnNext.Enabled = True
                If TabControl1.SelectedIndex = 0 Then
                    BtnPrev.Enabled = False
                End If
            End With
      Next
End Sub

 9. Terakhir Ketik close di prosedur btnclose sbb :

Private Sub BtnBatal_Click(sender As System.Object, e As System.EventArgs) Handles BtnBatal.Click
        Close()
    End Sub

10. Run Aplikasi.

Ketika proses running berjalan, dihalaman pertama tombol next enable sementara tombol Previous Disable. Dihalaman berikutnya keduanya enable. Dihalaman terakhir tombol next Disable sedangkan tombol previous enable.

demikian pembahasan metode ini, semoga bermanfaat. selamat mencoba...