Mas Juned, coba ditambahkan di event keypress berikut ini KeyAscii = Asc(UCase(Chr(KeyAscii)))
Semoga bisa membantu Agus ----- Original Message ----- From: Juned Syafruddin To: [EMAIL PROTECTED] ; [email protected] Sent: Tuesday, January 15, 2008 1:26 PM Subject: [indoprog-vb] input HURUF BESAR 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] ------------------------------------------------------------------------------ No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.19.2/1224 - Release Date: 1/14/2008 5:39 PM [Non-text portions of this message have been removed]
