SetFocus VB 6.0
Assalamu'alaikum...
Sebelumnya saya mau minta maaf kalau blog saya ini masih kurang terlalu bagus... maklum lah saya masih newbie... nah...disini saya akan menuliskan tentang bagaimana cara mengatur SetFocus di text box ketika semua data yang di masukkan di bersihkan.
Sebenarnya ini hanyalah penulisan code sederhana saja...
dan nanti event yang akan terjadi adalah ketika tombol command button dengan caption Reset di klik,
Ketika text1 dan text2 terisi sebuah text dan ketika kita klik reset, kursor akan langsung fokus di text1...
ini adalah penulisan codenya
Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub
keterangan code
- Text1.Text="" (untuk mengosongkan isi dari text1 ketika terisi oleh suatu text begitu juga dengan code Text2.Text="")
- Text1.SetFocus (ini adalah inti dari penulisan blog, karena kode ini berfungsi untuk memfokuskan kursor berada di text1)
 |
| Sebelum di klik reset / saat masih text1 dan text2 terisi oleh text |
 |
| Sesudah di klik reset / ketika semua text yang berada di text1 dan text2 di bersihkan |
Apabila di lihat dari gambar yang sesudah di klik reset kursor langsung berada di text1 itu adalah fungsi dari SetFocus...
Tidak hanya di text1, kita juga bisa memindahkannya ke komponen yang lain, sesuai dengan apa yang kita inginkan...
Terimakasih atas kunjungan anda...
Semoga sedikit ilmu yang saya bagikan bisa bermanfaat...
Amin...
Wassalamu'alaikum wr.wb