Функция IsCharAlpha

Declare Function IsCharAlpha Lib "user32" Alias "IsCharAlphaA" (ByVal cChar As Byte) As Long

IsCharAlpha определяет является ли данный символ буквой(а не цифрой, знаком препинания, специальным символом и т.д.). Это определение основано на семантике языка выбранного пользователем во время установки или через Панель Управления

Возвращаемое значение

Если символ является буквой, функция возвращает ненулевое значение. Если символ не является буквой, функция возвращает 0 (используйте GetLastError для получения кода ошибки)

Параметры

cChar

Определяет символ, который нужно тестировать

Пример

' Определяем, является ли буквой нажимаемая клавиша 
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim retval As String
Me.Cls
' Извлекаем информацию о символе
If IsCharAlpha(KeyAscii) Then
  retval = " буква"
  Me.Print "Вы нажали: " + Chr$(KeyAscii)
  Me.Print "Это" + retval
Else
 Me.Print "Вы нажали: " + Chr$(KeyAscii)
 Me.Print "Это не буква"
End If
End Sub 

Смотри также

IsCharAlphaNumeric

Категория

Строки