Tips Program VB Net Menghapus TextBox dan Combobox

Saya yakin anda sering membuat perintah untuk menghapus Textbox ataupun ComboBox pada suatu form VB Net bukan? Mungkin perintahnya begini :

Kode.Text = ""
Nama.Text = ""
Jenjang.Text = ""
Jurusan.Text = ""

Wah apabila dalam satu form Program VB Net banyak banget yang dihapus tentu repot dong, belum lagi Form Form Program VB Net yang lain tentu sangat repot sekali. Nah Tips Program VB Net Menghapus TextBox dan Combobox untuk mengatasi hal tersebut.


Pertama sekali pada Program Visual Basic Net anda tambahkan dulu Modul dengan perintah Click Project kemudian pilih Add Module, kemudian click Add.

Sehingga di Program Visual Basic Net muncul Module1

ketikkan perintah berikut pada Module1 tersebut.


Module Module1
    Sub ClearForm(ByVal frm As Form)
        Dim ctrl As Control
        Dim txtControl As TextBox
        Dim cmbControl As ComboBox
        For Each ctrl In frm.Controls
            If TypeOf ctrl Is TextBox Then
                txtControl = ctrl
                txtControl.Text = ""
            ElseIf TypeOf ctrl Is ComboBox Then
                cmbControl = ctrl
                cmbControl.Text = ""
            End If
        Next
    End Sub

End Module


Pada program form Anggota di form load tinggal di panggil ClearForm (Me)

Public Class frmAnggota
    Private Sub frmAnggota_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call ClearForm(Me)
    End Sub
End Class

Sumber : Mesran.net