Monday, April 25, 2016

Menghapus Isi Textbox Secara Massal di Visual Basic 6


Prodeku - Bagaimana sih cara menghapus seluruh isi pada textbox secara massal? Mungkin anda pernah menemukan sebuah tombol Reset Form pada suatu program aplikasi. Fungsi dari tombol reset form yaitu, apabila anda sudah menginputkan data pada beberapa form tetapi ada kesalahan data, anda tidak perlu menghapus isi form satu per satu. Jadi, anda cukup mengklik tombol reset form untuk menghapus semua data yang ada di form tadi.

Baca juga: Membuat Form Login Sederhana di Visual Basic 6

Sesuai dengan request dari salah satu sobat Prodeku melalui email saya, dalam pertemuan kali ini saya akan membahas tentang cara menghapus seluruh isi textbox secara massal di VB6. Tanpa panjang lebar, mari simak berikut ini.

Menghapus Isi Textbox Secara Massal

Dalam mengosongkan textbox pada Visual Basic 6 ada beberapa macam. Salah satu nya, anda bisa menggunakan koding berikut ini yang mudah di hafal.

Private Sub Command1_Click() 
   Text1.Text = ""
   Text2.Text = ""
   Text3.Text = ""
End Sub 
Penjelasan: Untuk yang saya beri warna pink, silahkan anda tambahkan sesuai dengan form anda.

Koding diatas memang sangat mudah di hafal, hanya saja anda harus menuliskan satu per satu nama form yang telah anda buat kedalam koding tersebut. Jadi, anda dapat juga menggunakan koding berikut ini tanpa harus menambahkan satu per satu.

Private Sub ClearAll() 
    Dim Ctl As Control 
    For Each Ctl In Me.Controls 
        If TypeOf Ctl Is TextBox Then   
            Ctl.Text = ""  'jika di klik textbox akan kosong
        End If 
    Next 
End Sub
Kemudian panggil koding diatas menggunakan CommandButton seperti berikut ini.

Private Sub Command1_Click() 
   Call ClearAll 'memanggil procedure
End Sub 

Bagaimana, mudah bukan? Sebenarnya koding diatas tidak hanya untuk menghapus isi textbox saja, anda juga dapat menghilangkan checklist dan mendisable control secara masssal. Silahkan anda kreasikan lagi koding diatas.


Demikian tentang cara menghapus isi textbox secara massal di visual basic 6. Selamat mencoba!

Tinggalkan komentar walaupun hanya sepatah kata
EmoticonEmoticon