Contoh Source code Validasi Input TextBoxt Visual Basic

Untuk penampakan

Berikut Source code nya :

1. Private Sub txthufur_KeyPress(KeyAscii As Integer)  
2.     If KeyAscii >= 65 And KeyAscii <= 90 Then  
3.         KeyAscii = KeyAscii  
4.     Else  
5.         If KeyAscii >= 97 And KeyAscii <= 122 Then  
6.             KeyAscii = KeyAscii  
7.         Else  
8.             KeyAscii = 0  
9.         End If  
10.     End If  
11. End Sub  
12.   
13. Private Sub txtkapital_KeyPress(KeyAscii As Integer)  
14.     KeyAscii = Asc(UCase(Chr(KeyAscii)))  
15. End Sub  
16.   
17. Private Sub txtangka_KeyPress(KeyAscii As Integer)  
18.     If KeyAscii >= 48 And KeyAscii <= 57 Then  
19.         KeyAscii = KeyAscii  
20.     Else  
21.         KeyAscii = 0  
22.     End If  
23. End Sub 

Selamat mencoba 

INFO
Anda ingin mencari refrensi dan contoh program lengkap disertai Source Code ? Kami ada. Sekarang Anda bisa mencari Source Sode Program VB di situs ini : www.skripsi-informatika.com. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework, Visual Basic 6, VB.Net, Delphi 7 dan juga Java NetBeans.