Fungsi Ucase pada vb 6.0

Tutorial kali ini saya akan berbagi bagaimana mengenai fungsi Ucase pada Visual Basic 6. Ucase berfungsi untuk mengkonversi kata atau kalimat menjadi hurup besar semua,  tipe datanya adalah string.
Pertama-tama kita buat form seperti berikut ini:

Pada form terdapat 2 Label dan 2 Texs box. Saya akan memberikan dua cara bagaimana mengkonversi kata atau kalimat sehingga pada saat user mengetikkan kata atau kalimat maka secara otomatis akan menjadi hurup besar, walaupun tombol Caps Lock pada keyboard dalam mode off.

Berikut ini cara-caranya:
1. Double klik Text Box1 kemudian ubah prosedur menjadi keypress. kemudian ketik listing seperti berikut.

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

2. Double klik Text Box2 kemudian ubah prosedur menjadi change. kemudian ketik listing seperti berikut.

Private Sub Text2_Change()
Dim posisi As Integer
posisi = Text2.SelStart
Text2.Text = UCase(Text2.Text)
Text2.SelStart = posisi
End Sub

Nah demikianlah cara penggunaan fungsi Ucase pada VB 6 semoga bermanfaat dan sampai ketemu pada postingan berikutnya.