Mengosongkan Isi Objek

Untuk mengosongkan text di textbox maupun combo box bagi hampir semua yang pernah belajar VB 6.0 bukanlah hal yang sulit. Cukup hanya dengan mengetikkan Text1="" atau Text1=empty maka objek yang bernama text1 akan kosong. Namun bila jumlah objek textbox mencapai puluhan dalam satu form maka saya rasa penulisan kode program akan kurang efisien. Selain itu programmer juga direpotkan karena harus mengingat semua nama objeknya. Belum lagi untuk form-form lainnya yang bila dalam satu program utuh minimal terdapat 2 form.


Namun hal ini dapat diatasi dengan membuat satu prosedur (sub atau function) yang dapat digunakan untuk berulang kali. Berikut merupakan prosedur yang sering saya gunakan untuk membersihkan objek-objek di dalam form

Sebelumnya kita deklarasikan dulu sebuah variabel yang akan digunakan untuk menampung objek-objek di dalam form


Dim Cntrl as Control
Sub Reset_Form
For Each Cntrl In layar.Controls
'untuk textbox
If (TypeOf Cntrl Is TextBox) Then
Cntrl.Text = ""
'untuk combobox
ElseIf (TypeOf Cntrl Is combobox) Then
Cntrl.text=""
End If
Next Cntrl
End Sub

Selanjutnya prosedur itu kita panggil, misalnya dengan menambahkan satu command button yang akan digunakan untuk memanggil prosedur tersebut.

Private Sub cmdbatal_Click()
Call reset_form
End Sub

Bila kita akan menggunakannya untuk beberapa form, maka kita hanya perlu melakukan sedikit perubahan di kode program dengan menambahkan satu module.
'ini untuk di module
Public Sub Reset_Form(layar As Form)
For Each Cntrl In layar.Controls
'untuk textbox
If (TypeOf Cntrl Is TextBox) Then
Cntrl.Text = ""
'untuk combobox
ElseIf (TypeOf Cntrl Is combobox) Then
Cntrl.text=""
End If
Next Cntrl
End Sub
Sedangkan untuk memanggilnya dari form dapat digunakan perintah berikut ini:
Call Reset_Form(Me)