Bang Juned, coba tambahkan script ini even KEYPRESS control Textboxnya bang.
Select case KeyAscii Case 97 to 122 KeyAscii = KeyAscii - 32 End select Semoga berhasil. Salam, Newbie On 1/15/08, 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] > > > [Non-text portions of this message have been removed]
