Membuat Fungsi Control Untuk membersihkan Textbox

Membuat Fungsi Control Untuk membersihkan Textbox

Biasanya saat pertama diload, form selalu dibersihkan untuk diisi dengan data yang baru, coding untuk pemula biasanya seperti dibawah ini :

Sub bersih_text()

        txNIP.Text = ""

        txNamaLengkap.Text = ""

        txTempatLahir.Text = ""

        txAlamat.Text = ""

        txNoTelp.Text = ""

        txKTP.Text = ""

        txJumlahAnak.Text = ""

        txFingerPrintID.Text = ""

        txJurusan.Text = ""

End Sub

Tidak ada yang salah dengan coding diatas jika textbox masih dalam hitungan jari, namun bagaimana jika suatu form memiliki lebih dari 30 textbox, bisa gempor…. !!!

Berikut adalah solusinya :

Gunakan public sub, sehingga kita hanya perlu membuat satu kali fungsi, dan bisa digunakan disemua form

Public Sub ClearTextBox(ByVal root As Control)

        For Each ctrl As Control In root.Controls

            ClearTextBox(ctrl)

            If TypeOf ctrl Is TextBox Then

                CType(ctrl, TextBox).Text = String.Empty

            End If

        Next ctrl

End Sub

Fungsi ini pun bisa kita gunakan untuk membuat enable, disable, dan yang lainnya, tergantung dari kreatifitas kita :

Public Sub DisableTextBox(ByVal root As Control)

        For Each ctrl As Control In root.Controls

            DisableTextBox(ctrl)

            If TypeOf ctrl Is TextBox Then

                CType(ctrl, TextBox).Enabled = False

            End If

        Next ctrl

End Sub

Public Sub EnableTextBox(ByVal root As Control)

        For Each ctrl As Control In root.Controls

            EnableTextBox(ctrl)

            If TypeOf ctrl Is TextBox Then

                CType(ctrl, TextBox).Enabled = True

            End If

        Next ctrl

End Sub

Semoga Tips ini bisa bermanfaat.