30 Nov 2013

Mengkosongkan semua textbox pada sebuah form

Pernahkan anda merasa jenuh menghapus textbox yang begitu banyak pada sebuah form? mesti membuat... thumbnail 1 summary


Pernahkan anda merasa jenuh menghapus textbox yang begitu banyak pada sebuah form? mesti membuat textbox1.text="" atau textbox1.text=vbnullstring. Kalau ada 10 textboxt ? Tapi anda bisa membuat sebuah fungsi tersebut dan menggunakannya hanya dengan menulis 1 baris kode




Buatlah sebuah form dengan 2 textbox atau lebih, lalu tambahkan sebuah button. Klik 2x button tersebut lalu tambahkan kode seperti di bawah ini di atas atau di bawah private sub button1  :


Public Sub _TextNull(ByVal frm As Object)
        For Each ctrl As Control In frm.Controls
            If TypeOf ctrl Is TextBox Then
                CType(ctrl, TextBox).Text = String.Empty
            End If
        Next ctrl
End Sub
Anda bisa mengubah fungsi _TextNull sesuai selera anda.


Sekarang, anda tinggal memanggil fungsi tersebut pada event button click