RE: [Programmer-VB] Tanya Kosongkan Text Box

Fri, 28 Apr 2006 00:14:17 -0700

Public Sub Bersih(FRM as Form)
    Dim CTL as Control
    For Each CTL In FRM.Controls
        If TypeOf CTL IS TextBox Then CTL.Text=""
    Next CTL
END SUB
 
Cara memanggilnya:  Bersih Me atau Call Bersih(Me)
 
Kurang lebih begitu :)
 
vbPian
[zZzz]
-----Original Message-----
From: [email protected] [mailto:[EMAIL PROTECTED]On Behalf Of Rommy Zamanuddin
Sent: Friday, April 28, 2006 2:01 PM
To: [email protected]
Subject: [Programmer-VB] Tanya Kosongkan Text Box

Assalamualaikum

saya sudah buat procedure di module seperti ini !

Public Sub Bersih()
Dim Frm As Form
Dim Ctrl As Control
 For Each Frm In Forms
    For Each Ctrl In Frm.Controls
  If TypeOf Ctrl Is TextBox Then
    Ctrl.Text = ""
  End If
 Next Ctrl
Next Frm
End Sub

catatan :
misal kita me load 3 buah form dengan nama form1, form2, form3 lalu jika saya sedang menggunakan form1 dan memanggil procedure diatas maka otomatis textbox yang ada di form2 dan form3 ikut  terkosongkan ?

Pertanyaan :
Nah yang ingin saya tanyakan, saya hanya ingin mengosongkan textbox pada form yang sedang saya gunakan saja  (form1 utk contoh diatas) tetapi procedure diatas ingin saya simpan di module bukan di form ?


Terima Kasih Banyak Sebelumnya atas bantuannya !




Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer



SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language

YAHOO! GROUPS LINKS



Kirim email ke