表紙へ

テキストボックス

４．入力をキャンセルする

　

メモ：ここで言う「入力」には貼り付けやプログラムから入力は含まれない

１．すべての入力をキャンセルする例

Private Sub Text1_KeyPress(KeyAscii As Integer)

    KeyAscii = 0

End Sub

　

２．数値以外の入力をキャンセルする例

Private Sub Text1_KeyPress(KeyAscii As Integer)

    If Not IsNumeric(Chr(KeyAscii)) Then

        KeyAscii = 0

    End If

End Sub

　

３．バックスペース以外の入力をキャンセルする例

Private Sub Text1_KeyPress(KeyAscii As Integer)

    If KeyAscii = vbKeyBack Then Exit Sub

    KeyAscii = 0

End Sub