To accept only numerics , Alphabats and Upper case characters into textboxes.

by Zama rizvi (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 17^th September 2001
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

API Declarations
'''if any problem plz. Contact at : e-mail :[email protected] ''''date : 17/09/2001

Rate To accept only numerics , Alphabats and Upper case characters into textboxes.





    If KeyAscii = 46 And InStr(Text1.Text, ".") > 0 Then
        KeyAscii = 0
        Exit Sub
    End If
    If KeyAscii = 46 Then Exit Sub
    
    
    
    If (KeyAscii < 48 Or KeyAscii > 57) And (KeyAscii <> 0) Then 

KeyAscii = 0
    


End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If (KeyAscii >= 65 Or KeyAscii <= 90) And (KeyAscii >= 97 And KeyAscii 

<= 122) Or KeyAscii = 32 Then
    Exit Sub
Else
    KeyAscii = 0
End If




End Sub

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

Download this snippet Add to My Saved Code

To accept only numerics , Alphabats and Upper case characters into textboxes. Comments

No comments have been posted about To accept only numerics , Alphabats and Upper case characters into textboxes.. Why not be the first to post a comment about To accept only numerics , Alphabats and Upper case characters into textboxes..

To accept only numerics , Alphabats and Upper case characters into textboxes.

To accept only numerics , Alphabats and Upper case characters into textboxes. Comments

Post your comment

Difficulty