'================================================================
'= 文字を比較(大文字、小文字を区別せず)
'=    (ChrCmpI.bas)
'================================================================
#include "Windows.bi"

' 大文字、小文字を区別せずに２つの文字を比較
Declare Function Api_ChrCmpI& Lib "shlwapi" Alias "ChrCmpIA" (ByVal c1 As Byte, ByVal c2 As Byte)

Var Shared Text(1) As Object
Var Shared Edit(1) As Object
Var Shared Button1 As Object

For i = 0 To 1
    Text(i).Attach GetDlgItem("Text" & Trim$(Str$(i + 1))) : Text(i).SetFontSize 14
    Edit(i).Attach GetDlgItem("Edit" & Trim$(Str$(i + 1))) : Edit(i).SetFontSize 14
Next
Button1.Attach GetDlgItem("Button1") : Button1.SetFontSize 14

'================================================================
'=
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()
    Var w1 As String
    Var w2 As String
    
    w1 = Edit(0).GetWindowText
    w2 = Edit(1).GetWindowText

    If w1 = "" Or W2 = "" Then Exit Sub

    If Api_ChrCmpI(Asc(w1), Asc(w2)) = 0 Then
        Text(0).SetWindowText w1 & " と " & w2 & " は同じ文字です！"
    Else
        Text(0).SetWindowText w1 & " と " & w2 & " は違う文字です！"
    End If
End Sub

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