Artikel, Program Gratis, Konsultasi & Pemesanan Program…

Belajar VB n Persiapan TA…

Cara Mudah Membersihkan Isi TextBox

Buat temen2 yang belum lama belajar VB., pasti sangat terbiasa dengan listing untuk membersihkan (cmdbersih/cmdbatal) yang seperti ini:

—————————————————————-
Sub bersih()
txttgl = “”
txtkdpelanggan = “”
dst
—————————————————————-

Bayangkan kalo ada 20 TextBox di form yang telah temen2 buat??? apa temen2 harus menulisnya sebanyak 20 kali???
cape dee… hhehehe. Ada ko cara lain yang bisa meminimalisir listing tersebut. Bahkan hanya membutuhkan 4 baris aja dengan listing yang singkat disetiap barisnya…

Coba temen2 buka vb, cari sebuah form yg pernah temen2 buat., cari sub bersih/listing untuk membersihkan/membatalkan.. hapus semua listing tersebut., dan ketik/salin listing dibawah ini:
Β 
—————————————————————-
Sub bersih()
Dim Ctl As Control
For Each Ctl In Me.Controls
If TypeOf Ctl Is TextBox Then Ctl.Text = “”
Next
End Sub
—————————————————————-

Lalu teman2 jalankan., isi semua TextBox yang ada dalam form tersebut., lalu klik command dimana terdapat listing yang sebelumnya anda gantikan…
Terlihat kan kemudahan dan hasilnya???πŸ™‚

Listing diatas berlaku untuk membersihkan TextBox saja., lalu bagaimana dengan yang lainnya???
sama saja.. Misal temen2 juga ingin mengosongkan sebuat DBCombo., hanya tinggal tambahkan:

—————————————————————-
If TypeOf Ctl Is DBCombo Then Ctl.Text = “”
—————————————————————-

Berlaku juga untuk yang lainnya..

Mudah bukan???πŸ˜€

Selamat mencoba ya…πŸ™‚

<<< Back To Index

Tags:
HOME
TOOL SYSTEM
PROGRAM GRATIS
KUMPULAN PROGRAM
PEMESANAN PROGRAM
HUBUNGI KAMI

3 Komentar

  1. Listing diatas berlaku untuk membersihkan TextBox saja??? ah yang bener bang bisa juga buat sub aktif ma non aktif nya….(true or false nya) hehhehe

    • Oh., ono pak aslab.. hehehe…
      mkash dah mampir pak., yes., benar sekari. β€œListing Diatas”. memang hanya untuk membersihkan TextBox saja.
      kalo mau digunakan untuk aktif or nonaktif., bisa gunakan listing seperti ini:
      ————————————–
      Dim Ctl As Control
      For Each Ctl In Me.Controls
      If TypeOf Ctl Is TextBox Then Ctl.Enabled = False
      Next
      ————————————–
      Maksudnya mau dibahas buat next artikel., biar keliatan lebih banyak.
      tp gpp deh., di launchingin duluan. hhhehehhehe…

  2. OK

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: