White Tiger

テキストボックスに半角英大文字「A」から「Z」以外の文字が入力できないようにする方法

◆概要


このページは、Visual Basic 6.0でテキストボックスに半角英大文字「A」から「Z」以外の文字が入力できないようにする方法について記載しています。


テキストボックスのKeyPressイベントを利用すると、キー入力した文字のチェックを行うことができます。キー入力した文字は、KeyPressイベントのKeyAscii引数に代入されるので、この引数に格納された文字を調べることで、文字を受け付けるかどうかを判断することができます。

◆Sample 1


次の例は、半角英大文字「A」から「Z」以外の文字を入力しようとすると、Beep音が発生して入力できません。なお、 If KeyAscii >= Asc("A") And KeyAscii <= Asc("Z") Then　はキャラクタコードで置き換えて If KeyAscii >= 65 And KeyAscii <= 90 Then とすることもできます。

Private Sub Text1_KeyPress(KeyAscii As Integer)
    'バックスペースは除外
    If KeyAscii = vbKeyBack Then Exit Sub

    If KeyAscii >= Asc("A") And KeyAscii <= Asc("Z") Then
        Exit Sub
    Else
        KeyAscii = 0  '入力を無効にする
        Beep
    End If
End Sub

◆Sample 2


次の例は、半角英小文字「a」から「z」と半角英大文字「A」から「Z」と以外の文字を入力しようとすると、Beep音が発生して入力できません。

Private Sub Text1_KeyPress(KeyAscii As Integer)
    'バックスペースは除外
    If KeyAscii = vbKeyBack Then Exit Sub

    If Not Chr(KeyAscii) Like "[a-z]" Then
        If Not Chr(KeyAscii) Like "[A-Z]" Then
            KeyAscii = 0    '入力を無効にする
            Beep
        End If
    End If

End Sub

Link