by Sathyanarayanan.K (3 Submissions)
Category: String Manipulation
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 18th June 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Accept Upper Character only.
API Declarations
It is just a function. make use of this code in the module
Dim Char As String
If (KeyAscii > 96 And KeyAscii <= 122) Or (KeyAscii >= 65 And KeyAscii
< 91) Or KeyAscii = 39 Then
Char = Chr$(KeyAscii)
AcceptChar = Asc(Char)
ElseIf KeyAscii = 8 Or KeyAscii = 32 Then
AcceptChar = KeyAscii
Else: KeyAscii = 0
End If
End Function