表紙へ

テキストボックス

５．入力できる文字を制限する

１．半角英数だけ入力できるようにする例

   

Private Sub Text1_KeyPress(KeyAscii As Integer)

    If Not Chr(KeyAscii) Like "[a-zA-Z0-9]" Then
        KeyAscii = 0
    End If

End Sub
　

　

２．半角数字のみ入力できるようにする例

　

Private Sub Text1_KeyPress(KeyAscii As Integer)

    If Not Chr(KeyAscii) Like "[0-9]" Then
        KeyAscii = 0
    End If

End Sub

　

３．半角カタカナのみ入力できるようにする例

Private Sub Text1_KeyPress(KeyAscii As Integer)

    If Not Chr(KeyAscii) Like "[ｱ-ﾝﾞﾟｰｯｬｭｮｧｨｩｪｫ]" Then
        KeyAscii = 0
    End If

End Sub

　

４．半角文字のみ入力できるようにする例

Private Sub Text1_KeyPress(KeyAscii As Integer)

    If LenB(StrConv(Chr(KeyAscii), vbFromUnicode)) = 2 Then
        KeyAscii = 0
    End If

End Sub

５．バックスペースと半角英数のみ入力できるようにする例

Private Sub Text1_KeyPress(KeyAscii As Integer)

    If KeyAscii = vbKeyBack Then Exit Sub

    If Not Chr(KeyAscii) Like "[a-zA-Z0-9]" Then
        KeyAscii = 0
    End If

End Sub