Mengkosongkan teks pada kontrol
Halaman 1 dari 1
Mengkosongkan teks pada kontrol
Mengkosongkan teks pada kontrol (TextBox atau ComboBox) memang mudah sekali. Anda tinggal menuliskan rutin kode berikut ini:
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!
Ketik kode berikut di form!
- 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
Similar topics
» Memformat Teks pada Kontrol
» Memblok teks pada kontrol
» Memeriksa teks kosong pada kontrol
» Menyisipkan Kontrol Baru
» Memposisikan Teks (Metode Warpping)
» Memblok teks pada kontrol
» Memeriksa teks kosong pada kontrol
» Menyisipkan Kontrol Baru
» Memposisikan Teks (Metode Warpping)
Halaman 1 dari 1
Permissions in this forum:
Anda tidak dapat menjawab topik
|
|