Validasi Huruf Besar di text Pada VB 6

Pada sebuah Pemograman, Validasi adalah hal yang sangat Penting. Biasanya Validasai berfungsi agar Program tidak Bug. Ada banyak macam dari validasai di VB 6.


Berikut adalah Koding untuk membuat Validasi Huruf Besar Pada VB 6


Private Sub Text1_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
Dengan ini maka Text akan berubah menjadi besar, tanpa harus anda Klik CAPSLOCK pada Keyboard Komputer anda