VB6 : Sedikit Share Tentang Penggunaan For each xxx in Me.Controls

Kadang kala dalam pembuatan aplikasi, kita harus menggunakan banyak control (Seperti : Textbox,ComboBox, dan lainnya) dalam sebuah form.

 Contoh form :

sumber gambar Form
Nah, dari contoh form tersebut dapat kita lihat terdapat 16 textbox untuk isian yang diperlukan, kadang kala kita perlu untuk membuat sebuah fungsi yang berguna untuk mengosongkan textbox-textbox tersebut.


Contoh mudahnya mungkin bisa seperti berikut :

Private sub Command1_click()
Call Bersih
End Sub

Sub bersih()
textbox1.text = ""
textbox2.text = ""
textbox3.text = ""
textbox4.text = ""
  ...s/d......
textbox16.text = ""
End sub

Dari contoh tersebut diatas, bisa kita bayangkan banyaknya coding yang mesti kita ketik bila kita mempunyai lebih banyak textbox yang harus kita kosongkan.

Mungkin potongan coding berikut bisa menjadi salah satu solusinya untuk mengosongkan textbox dengan cepat dan sebanyak apapun textbox yang kita pakai.

Berikut coding nya

Private sub Command1_click()
Call Bersih
End Sub

Sub bersih()
Dim khaest As Control
For Each khaest In Me.Controls
        If TypeOf khaest Is TextBox Then
            khaest.Text = ""
        End If
    Next
End Sub

Dari coding diatas dapat kita lihat baris "If TypeOf khaest Is TextBox Then" dan "khaest.Text = "" ",  Kedua baris ini merupakan kunci dalam melakukan perubahan properti pada control yang kita tuju.

Sebagai contoh kita coba untuk merubah semua Textbox mempunyai properti backcolor berwana kuning , coba pembaca ketik coding berikut ini pada form yang sudah ada beberapa control TextBox :
Berikut coding nya

Private sub Command1_click()
Call Bersih
End Sub

Sub bersih()
Dim khaest As Control
For Each khaest In Me.Controls
        If TypeOf khaest Is TextBox Then
            khaest.BackColor =vbYellow
        End If
    Next
End Sub

Dan apa yang terjadi?? Semua TextBox akan berubah jadi mempunyai warna latar kuning :D
Untuk fungsi-fungsi selanjutnya...silahkan pembaca explore lebih jauh :P