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...
