Re: [Programmer-VB] Tanya Kosongkan Text Box

Fri, 28 Apr 2006 00:07:52 -0700

coba ubah jadi spt ini
 
Public Sub Bersih(ByRef frm as Form)
Dim Ctrl As Control
    For Each Ctrl In Frm.Controls
  If TypeOf Ctrl Is TextBox Then
    Ctrl.Text = ""
  End If
 Next Ctrl
End Sub
buat ngosongin form1
call bersih(form1)

best regards
[wwn]
 
On 4/28/06, Rommy Zamanuddin <[EMAIL PROTECTED]> wrote:
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