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

Membuat User Control Progress Bar

Progress Bar sering kali digunakan dalam berbagai aplikasi terutama dalam proses yang memerlukan waktu sedikit lama.Sehingga user dapat membedakan bahwa proses sedang berjalan. Pembahasan kali ini saya akan membuat User Control Progress Bar. Pertama kali kita buat User Control dan beri nama ProgreswsBar, kemudian masukkan Progress Bar dan Label seperti gambar dibawah ini :


progress Bar diberi nama : bar
label diberi nama : lblProgress


kemudian ketikan list program dibawah ini :

    Inherits System.Windows.Forms.UserControl

#Region " Windows Form Designer generated code "

    Public Sub New()

        MyBase.New()

        InitializeComponent()

    End Sub

    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

        If disposing Then

            If Not (components Is Nothing) Then

                components.Dispose()

            End If

        End If

        MyBase.Dispose(disposing)

    End Sub

    Private components As System.ComponentModel.IContainer

    Friend WithEvents Bar As System.Windows.Forms.ProgressBar

    Friend WithEvents lblProgress As System.Windows.Forms.Label

    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

        Me.Bar = New System.Windows.Forms.ProgressBar

        Me.lblProgress = New System.Windows.Forms.Label

        Me.SuspendLayout()

        Me.Bar.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _

                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)

        Me.Bar.Location = New System.Drawing.Point(4, 8)

        Me.Bar.Name = "Bar"

        Me.Bar.Size = New System.Drawing.Size(154, 23)

        Me.Bar.TabIndex = 0       

        Me.lblProgress.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _

                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)

        Me.lblProgress.Location = New System.Drawing.Point(5, 31)

        Me.lblProgress.Name = "lblProgress"

        Me.lblProgress.Size = New System.Drawing.Size(152, 16)

        Me.lblProgress.TabIndex = 1

        Me.lblProgress.Text = "0% Done"

        Me.lblProgress.TextAlign = System.Drawing.ContentAlignment.TopCenter

        Me.Controls.Add(Me.lblProgress)

        Me.Controls.Add(Me.Bar)

        Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Name = "Progress"

        Me.Size = New System.Drawing.Size(164, 49)

        Me.ResumeLayout(False)

    End Sub

#End Region

    Property Value() As Integer

        Get

            Return Bar.Value

        End Get

        Set(ByVal Value As Integer)

            Bar.Value = Value

            UpdateLabel()

        End Set

    End Property

    Property Maximum() As Integer

        Get

            Return Bar.Maximum

        End Get

        Set(ByVal Value As Integer)

            Bar.Maximum = Value

        End Set

    End Property

    Property [Step]() As Integer

        Get

            Return Bar.Step

        End Get

        Set(ByVal Value As Integer)

            Bar.Step = Value

        End Set

    End Property

    Public Sub PerformStep()

        Bar.PerformStep()

        UpdateLabel()

    End Sub

    Private Sub UpdateLabel()

        lblProgress.Text = ((Bar.Value * 100) \ Bar.Maximum).ToString() & "% Done"

    End Sub

setelah selesai kita akan panggil dalam WinForm. Buat sebuah Form dengan nama FrmBar. Masukkan Timer beri nama tmrIncrementBar. masukkan juga User Control yang sudah dibuat ProgressBar kedalam Form. Dalam Propertis Form ubah Control Box menjadi False, Form Border Style -->FixedToolWindow. Skema UI nya akan seperti gambar dibawah ini :








ketik list prog sbb :

Private Sub LoadProgressBar()
        status.Visible = True

        tmrIncrementBar.Enabled = False

        status.Value = 0
        status.Maximum = 100
        status.Step = 1

        tmrIncrementBar.Enabled = True
End Sub

Private Sub tmrIncrementBar_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrIncrementBar.Tick
        Dim sJum As Double

        sJum = status.Value

        status.PerformStep()
        If status.Value = 10 Then
            Call ---Prosedur 1
        ElseIf status.Value = 30 Then
            Call ---Prosedur 2
        ElseIf status.Value = 50 Then
            Call ---Prosedur 3
        ElseIf status.Value = 70 Then
            Call ---Prosedur 4
        ElseIf status.Value = 90 Then
            Call ---Prosedur 5
        ElseIf status.Value = status.Maximum Then
            tmrIncrementBar.Enabled = False
            status.Visible = False
            Close()
        End If
End Sub

dalam load form panggil prosedur LoadProgressBar
     call LoadProgressBar()


demikian pembuatan User Control Progress Bar. Silahkan untuk mencobanya...