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:

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

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:

        Fokus NamaTextBox

Contoh:

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.

Perihal Novian Agung
Pengangguran

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: