Merubah Textbox Menjadi Huruf Kapital.

Terkadang didalam Textbox kita menginginkan huruf yang di input menjadi huruf besar (Kapital) namum kadang operator lupa menekan Caps Lock sehingga huruf yang di input menjadi huruf kecil, untuk membantu operator jika menemukan masalah yang demikian maka sebagia pembuat program bisa menemukan solusinya.

Pada perintah VB ada fungsi yang merubah Character menjadi huruf  capital yaitu : Ucase().

Misal  didalam Textbox1 kita menginginkan Character yang di input adalah huruf  Kapital maka kita bisa menjadikannya pada Event KeyPress pada Tools Textbox tersebut seperti demikian :

Private Sub Text1_KeyPress(KeyAscii As Integer)

KeyAscii = Asc(UCase(Chr(KeyAscii)))

End Sub

Jika kita jalankan (F5)  dan kita ketik huruf  makan akan tampak huruf menjadi huruf  Kapital semua namun tidak berpengaruh jika yang kita input adalah angka. Jadi kita tidak perlu mencari koponen Textbox yang bisa merubah input menjadi huruf capital.

Dari script diatas tampak parameter KeyAscii dirubah dengan perintah : Asc(Ucase(Chr(KeyAscii)))

KeyAscii yang lama dirubah menjadi Character lalu kemudian dirubah Ucase menjadi huruf Kapital kemudian hasilnya dirubah lagi  menjadi Ascii oleh perintah Asc() dan disimpan ke KeyAscii yang baru.

Silahkan anda mencobanya.