Cara kosongkan teks pada TeksBox dan ComboBox di VB6

Didalam sebuah Aplikasi pasti kita sering menggunakan sebuah prosedur untuk mengosongkan kembali teks-teks baik itu yang terdapat pada TeksBox maupun yang terdapat pada ComboBox. Biasanya proses mengosongkan kontrol-kontrol tersebut dilakukan setelah proses simpan, ketika ingin menambahkan data, melakukan refresh dan sebagainya sesuai kebutuhan aplikasi anda. Sering kali kita menggunakan :

Text1.text = ""
Text2.text = ""
.... dan seterusnya sebanyak kontrol TextBox yang kita punya didalam sebuah Form.

Kali ini kita akan latihan menggunakan Function pada level Modul.

Ya ... Buatlah sebuah Modul untuk menempatkan kode program dibawah ini :

sebelumnya deklarasikan sebuah variabel dengan tipe Control

Public kontrol as Control

kemudian ...

Public Function Kosongkan(objForm As Form) For Each kontrol In objForm.Controls If TypeOf kontrol Is TextBox Then kontrol.Text = "" If TypeName(kontrol) = "ComboBox" Then kontrol.Text = "" 'bisa juga ditulis seperti ini next End Function

Ket : Kosongkan adalah nama fungsi yang kita berikan yang selanjutnya dapat dipanggil pada setiap Form dan sebuah variabel objform yang bertipekan Form.

cara panggilnya :

Call Kosongkan(Form1) 'Form1 adalah sebuah name pada Form tersebut atau bisa juga dengan menggunakan (Me)

Posted in: Information Technology,Konsep Pemprograman,Pemprograman VB6,Program VB6 Gratis,Toolbox VB6,vb6,Visual Basic 6