'================================================================
'=　対象一文字が数字・アルファベットの大文字・小文字
'=    (IsChar.bas)
'================================================================
#include "Windows.bi"

' 指定された文字が、アルファベット文字かを判断
Declare Function Api_IsCharAlpha& Lib "user32" Alias "IsCharAlphaA" (ByVal cChar As byte)

' 指定された文字が、数字かどうかを判断
Declare Function Api_IsCharAlphaNumeric& Lib "user32" Alias "IsCharAlphaNumericA" (ByVal cChar As byte)

' 指定された文字が、小文字かどうかを判断
Declare Function Api_IsCharLower& Lib "user32" Alias "IsCharLowerA" (ByVal cChar As byte)

' 指定された文字が、大文字かどうかを判断
Declare Function Api_IsCharUpper& Lib "user32" Alias "IsCharUpperA" (ByVal cChar As byte)

Var Shared Edit1 As Object
Var Shared Text1 As Object
Var Shared Button1 As Object

Edit1.Attach GetDlgItem("Edit1") : Edit1.SetFontSize 14
Text1.Attach GetDlgItem("Text1") : Text1.SetFontSize 14
Button1.Attach GetDlgItem("Button1") : Button1.SetFontSize 14

'================================================================
'=
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()
    Var sChr As String

    If Edit1.GetWindowText = "" Then Exit Sub
    If Api_IsCharAlphaNumeric(Asc(Left$(Edit1.GetWindowText, 1))) Then sChr = "数字"
    If Api_IsCharAlpha(Asc(Left$(Edit1.GetWindowText, 1))) Then sChr = "アルファベット"
    If Api_IsCharLower(Asc(Left$(Edit1.GetWindowText, 1))) Then sChr = sChr & "の小文字"
    If Api_IsCharUpper(Asc(Left$(Edit1.GetWindowText, 1))) Then sChr = sChr & "の大文字"

    Text1.SetWindowText sChr
End Sub

'================================================================
'=
'================================================================
While 1
    WaitEvent
Wend
Stop
End