• Home
 · 
• Miscellaneous
 · 
• 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.

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.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    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