Membuat Huruf Besar Pada Textbox (VB6)

Halo sobat, berlanjut pada postingan sebelumnya yaitu (Textbox) Awal Huruf Otomatis Kapital (VB6) kali ini saya akan bermain bersama textbox kembali yaitu Membuat Huruf Besar Pada Textbox. Dengan memanfaatkan Keypress pada Textbox, maka tidak banyak coding yang dimasukkan cukup coding di bawah ini.

Keyascii = Asc(UCase(Chr(Keyascii)))

dan peletakkan coding di atas sebagai berikut

Private Sub Text1_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

dan dibawah ini merupakan contoh tampilan yang saya buat

 

Semoga Bermanfaat  ...

share this article to: Facebook Twitter Google+ Linkedin Technorati Digg

Posted by Admin (Ade Setiadi), Published at 10:44:00 AM and have 1 comments