Cara menginfutkan angka dan Huruf kafital Di TextBox

Untuk postingan kali ini masih seputaran Visual Basic yaitu mengenai Control Textbox, saya coba berbagi sedikit tips mengenai control ini buat VB Beginner 

Untuk menampilkan angka di text box

Option Explicit

Const vbKeyDecPt = 46

Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyDecPt Or KeyAscii = vbKeyBack Then Exit Sub Else KeyAscii = 0 End If End Sub

Untuk Menampilkan semua huruf Kapital (Huruf besar) pada textbox walaupun tombol Caps lock pada keyboard tidak di pencet codding seperti dibawah ini

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

Event ini tidak akan berjalan kalo codding nya tidak ditempatkan pada eventKeyPress(KeyAscii As Integer).

mudah-mudahan ada mamfaatnya bagi sobat-sobat VB Beginner ... dan terimakasih sebelumnya buat temen-temen yang sudah berkenan memberikan komentar nya ... salam