Mengkosongkan teks pada kontrol

Topik sebelumnya Topik selanjutnya Go down

Mengkosongkan teks pada kontrol

Post by PujanggaBageur on Fri Aug 08, 2008 11:12 pm

Mengkosongkan teks pada kontrol (TextBox atau ComboBox) memang mudah sekali. Anda tinggal menuliskan rutin kode berikut ini:

Code:
NamaKontrol.Text = ""

Tetapi, kode di atas berlaku untuk sebuah kontrol saja. Bagaimana jika terdapat banyak kontrol pada form yang Anda desain? Perlu banyak waktu untuk menulis satu persatu nama kontrol yang akan dihapus dan Anda harus mengingat atau mengenali semua nama kontrol yang akan dikodei.

Teknik berikut ini adalah teknik cepat untuk menghapus teks pada kontrol, tanpa harus mengenali nama-nama kontrol, dan dapat digunakan pada semua form dengan tujuan serupa.

Mulailah sebuah project baru. Tempatkan beberapa kontrol TextBox atau ComboBox. Tambahkan sebuah CommandButton, ubah properti (Name) mencadi cmdBersih!

Buat sebuah module, ketik kode berikut!

Code:
Sub KosongkanTeks(frm As Form)
    Dim ctl As Control
   
    'Melakukan pengulangan sebanyak control
    'yang ada pada sebuah form
    For Each ctl In frm.Controls
        If TypeOf ctl Is TextBox Then
            'Samakan nilai properti Text
            'dengan nilai properti Tag
            ctl.Text = ctl.Tag
           
            'Larikan fokus kursor
            'ke kontrol yang memiliki nilai
            'TabIndex = 1
            If ctl.TabIndex = 1 Then
                ctl.SetFocus
            End If
        ElseIf TypeOf ctl Is ComboBox Then
            ctl.Text = ctl.Tag
            If ctl.TabIndex = 1 Then
                ctl.SetFocus
            End If
        End If
    Next
End Sub

Ketik kode berikut di form!

Code:
Private Sub cmdBersih_Click()
    KosongkanTeks Me
End Sub

PujanggaBageur
Admin
Admin

Jumlah posting : 148
Join date : 07.08.08
Age : 34
Lokasi : Cirebon

Lihat profil user http://inochi.forumotion.net

Kembali Ke Atas Go down

Topik sebelumnya Topik selanjutnya Kembali Ke Atas

- Similar topics

 
Permissions in this forum:
Anda tidak dapat menjawab topik