Sebenarnya dengan cara seperti itu sudah benar. Hanya penggunaan jangan di even CHANGE coba rubah di Even LOSTFOCUS
Bila ingin tetap di Even CHANGE jangan menggunakan txtSJNO.SelStart Selamat Mencoba LS --- In [email protected], Juned Syafruddin <[EMAIL PROTECTED]> wrote: > > DEar programmer > > Ada yang tau gak untuk mengaktifkan capslock untuk input Huruf besar di teks > atau ada trik untuk itu > > sebenarnya saya sudah buat dengan cara seperti ini > > Private Sub txtSjno_Change() > txtSJNO.Text = UCase(txtSJNO.Text) > txtSJNO.SelStart = Len(txtSJNO.Text) > > End Sub > > tapi kendalanya bila kita rubah huruf yang letaknya di tengah maka akan langsung lompat ke akhir kata > > mohon pencerahannya > > terima kasih sebelumnya > > Juned > > > --------------------------------- > Never miss a thing. Make Yahoo your homepage. > > [Non-text portions of this message have been removed] >
