Memblok teks pada kontrol
Halaman 1 dari 1
Memblok teks pada kontrol
Salah satu ciri program (untuk pemasukan data) yang baik adalah ketika kursor berada pada suatu kontrol inputan (TextBox atau ComboBox), maka teks yang ada pada kontrol tersebut terblok seluruhnya, sehingga pengguna program dapat langsung mengisikan suatu teks tanpa terlebih dulu menghapus teks yang sudah ada sebelumnya.
Kontrol ComboBox memang sudah menyediakan fasilitas ini, tetapi tidak demikian dengan kontrol TextBox, Anda harus mengkode untuk dapat ‘menikmati’ fasilitas ini. Di bawah ini adalah contoh kode tersebut:
Anda harus menulisi semua event GotFocus untuk setiap kontrol TextBox yang Anda kehendaki dengan kode seperti di atas. Tetapi ada cara cukup mudah yang dapat Anda lakukan sehingga dapat mengurangi tenaga dan waktu Anda. Simak penjelasan berikut!
Mulailah project baru! Tempatkan beberapa kontrol TextBox pada form.
Ketik kode berikut pada sebuah Module
Kemudian pada event GotFocus sebuah kontrol TextBox, tulisi rutin kode:
Contoh:
Lakukan cara di atas untuk setiap event GotFocus pada control TextBox yang Anda kehendaki.
Kontrol ComboBox memang sudah menyediakan fasilitas ini, tetapi tidak demikian dengan kontrol TextBox, Anda harus mengkode untuk dapat ‘menikmati’ fasilitas ini. Di bawah ini adalah contoh kode tersebut:
- Code:
Private Sub Text1_GotFocus()
With Me.Text1
.SelStart = 0
.SelLength = Len(.Text)
End With
End Sub
Anda harus menulisi semua event GotFocus untuk setiap kontrol TextBox yang Anda kehendaki dengan kode seperti di atas. Tetapi ada cara cukup mudah yang dapat Anda lakukan sehingga dapat mengurangi tenaga dan waktu Anda. Simak penjelasan berikut!
Mulailah project baru! Tempatkan beberapa kontrol TextBox pada form.
Ketik kode berikut pada sebuah Module
- Code:
Sub Fokus(ctl As Control)
With ctl
'larikan kursor ke awal penulisan
.SelStart = 0
'blok sepanjang teks yang ada
.SelLength = Len(.Text)
End With
End Sub
Kemudian pada event GotFocus sebuah kontrol TextBox, tulisi rutin kode:
- Code:
Fokus NamaTextBox
Contoh:
- Code:
Private Sub Text1_GotFocus()
Fokus Me.Text1
End Sub
Private Sub Text2_GotFocus()
Fokus Me.Text2
End Sub
Lakukan cara di atas untuk setiap event GotFocus pada control TextBox yang Anda kehendaki.
Similar topics
» Memformat Teks pada Kontrol
» Mengkosongkan teks pada kontrol
» Memeriksa teks kosong pada kontrol
» Menyisipkan Kontrol Baru
» Memposisikan Teks (Metode Warpping)
» Mengkosongkan 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
|
|