str5

Check The Type Of Character

Check The Type Of Character

Easily check if character is upper case, lower case, alpha or numeric
using API.

Preparations

Add 1 Text Box to your form.

Module Code

Declare Function IsCharUpper Lib "user32" Alias "IsCharUpperA" _
(ByVal cChar As Byte) As Long
Declare Function IsCharLower Lib "user32" Alias "IsCharLowerA" _
(ByVal cChar As Byte) As Long
Declare Function IsCharAlpha Lib "user32" Alias "IsCharAlphaA" _
(ByVal cChar As Byte) As Long
Declare Function IsCharAlphaNumeric Lib "user32" Alias _
"IsCharAlphaNumericA" (ByVal cChar As Byte) As Long

Form Code

Private Sub Text1_KeyPress(KeyAscii As Integer)
'1 - True, 0 - False
MsgBox "Upper Case: " & IsCharUpper(KeyAscii) & _
" Lower Case: " & IsCharLower(KeyAscii) & _
" Alpha: " & IsCharAlpha(KeyAscii) & _
" Alpha or Numeric: " & IsCharAlphaNumeric(KeyAscii)
End Sub