30 Nov 2013

Mengkosongkan semua textbox pada sebuah form

Pernahkan anda merasa jenuh menghapus textbox yang begitu banyak pada sebuah form? mesti membuat textbox1.text="" atau textbox... 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


Jika anda terbantu dengan artikel saya, dimohon klik iklan pada bagian atas/bagian bawah/bagian kanan (Untuk memberikan semangat penulis membuat artikel :D )
(Gunakan Google Accounts anda untuk berkomentar atau akun disqus)
Donasi :
BNI Syariah 0649420235 AN Heru Rahmat Akhnuari
BCA 3120670319 an. Heru Rahmat Akhnuari
BRI 005801112479504 an. Heru Rahmat Akhnuari