Memblok teks pada kontrol

Topik sebelumnya Topik selanjutnya Go down

Memblok teks pada kontrol

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

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:

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.

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