文字の比較(VB)

説明:

ChrCmpIで、二つの文字を大文字・小文字を区別せずに比較する。

キーワード:

ChrCmpI

サンプルコード:

Declare Function ChrCmpI Lib "shlwapi" Alias "ChrCmpIA" (ByVal c1 As Byte, ByVal c2 As Byte) As Long


Private Sub Command1_Click()

    Dim S1 As String
    Dim S2 As String
    
    S1 = "A"
    S2 = "a"

    If ChrCmpI(AscB(S1), AscB(S2)) = 0 Then
        MsgBox S1 & "と" & S2 & "は同じ文字"
    Else
        MsgBox S1 & "と" & S2 & "は違う文字"
    End If

End Sub

(original text:1999/06/09 更新)

本ドキュメントの内容は保証しません。本ドキュメントによって生じた結果について、一切の責任を負いません。