TIPS UNTUK TEXTBOX VB

Hampir tiga minggu blog ekakom ini gak update posting, ini karena ada sedikit kesibukan maklum nyari uang tambahan buat uang bli rokok (wekekekeke) trus lagi ngurus blog yang satunya lagi http://ndakdo.blogspot.com sekalian belajar modiv template.

Untuk postingan kali ini masih seputaran Visual Basic yaitu mengenai Control Textbox, saya coba berbagi sedikit tips mengenai control ini buat VB Beginner karena ada beberapa dari sobat-sobat bertanya melalui email saya, yg pertanyaan nya lebih kurang seperti ini ..
"Mas kalo buat inputan hanya berupa angka dan kalau Huruf Kapital aja dimuat di textbox cara nya bagaimana" , disini saya akan langsung membahas nya.

yang perlu dingat adalah event ini terjadi saat user ato pengguna menekan tombol keyboard atau yang lebih tepat nya pada event Keypress(KeyAscii as integer). nah untuk mengizinkan user hanya menginput berupa angka (number) codding nya seperti dibawah ini

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 event KeyPress(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