Yang benar adalah Private Sub txtSJNO_Change() KeyAscii = Asc(UCase(Chr(KeyAscii)))
pasti bisa.. OK 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] > > > -- Aku orang biasa Tapi kepengin jadi Luar Biasa [Non-text portions of this message have been removed]
