Функция IsCharAlphaNumeric

Declare Function IsCharAlphaNumeric Lib "user32" Alias "IsCharAlphaNumericA" (ByVal cChar As Byte) As Long

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

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

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

Параметры

cChar

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

Пример

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

Смотри также

IsCharAlpha

Категория

Строки