Trik Penggunaan For Eac...Next pada TextBox

           Diantara kita mungkin pernah terlintas, seumpama kita sedang membuat program dengan menggunakan banyak atau ratusan komponen TextBox, dan anda ingin sekali komponen CommandBottun di Clik semua isi TextBox kosong. Apakah kita harus mengetikkan script

Text1.text=""
Text2.text=""
Text3.text=""
Text4.text=""
Text5.text=""
Text6.text=""
Text7.text=""
Text8.text=""
Text9.text=""
Text10.text=""

        iya kalau TextBox yang ingin kita kosongkan itu 5 atau 10 TextBox, coba kalau harus mengosongkan 1000 TextBox. Apakah kita harus menulis satu-satu , text1.text="" sampai text1000.text="" . Apakah anda ingin seperti itu. OK, kali ini saya akan berbagi sedikit ilmu, gimana caranya mengosongkan banyak komponen TextBox sekali Clik tanpa menulis banyak script seperti diatas.

Caranya yaitu:

Pertama kita buat tampilan seperti gambar di bawah ini, atau mungkin beda. Yang penting ada komponen TextBox sebanyak-banyak, boleh sampai 10000000 ataupun lebih, dan komponen CommandButton sebagai event.

        Kedua, Klik Double pada Komponen CommandButton atau pada gambar CommandButton yang Properties Captionnya saya isi "HAPUS SEMUA ISI TEXTBOX". Setelah Klik Double kita akan di arahkan pada view code. Baru kita tulis Script seperti ini:

Private Sub Command1_Click()
Dim a As Control
For Each a In Controls
    If TypeOf a Is TextBox Then
        a.Text = ""
    End If
Next a
End Sub

penjelasnnya:

1. Kita deklarasikan terlebih dahulu variabel a dengan type variabel control (Dim a As Control).
2. Tuliskan For Each a In Controls , script ini akan melakukan pengulangan control pada group Control.
3. Tuliskan If TypeOf a Is TextBox Then, artinya jika tipe dari variabel a adalah TextBox maka.
4. Tuliskan a.Text="", artinya variabel a atau componen TextBox akan menjadi kosong.
5.  

sekian dulu Trik kali ini yang bisa saya berikan semoga bermanfaat.........

 

Download File