gampang, kamu salah letak doang...
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
That's All
Tongam
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]
---------------------------------
Bergabunglah dengan orang-orang yang berwawasan, di bidang Anda di Yahoo!
Answers
---------------------------------
Bergabunglah dengan orang-orang yang berwawasan, di bidang Anda di Yahoo!
Answers
[Non-text portions of this message have been removed]
