キー入力を制限しつつ、Ctrl+CやCtrl+Vを活かすには？

質問

数字とバックスペース以外入力できないテキストボックスTextBoxAを作りました。

Private Sub TextBoxA_KeyPress(KeyAscii As Integer)

If KeyAscii <> vbKeyBack Then
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
End If
End If

End Sub

と記述しましたが、Ctrl+CやCtrl+Vが効きません。
右クリックでコピー、ペーストはできるのですが、コントロールキー
によるコピペを可能にするにはどうしたらいいでしょうか？

どなたかよろしくお願いします。

回答No.1

taknt · ベストアンサー

If KeyAscii <> vbKeyBack Then
Label1.Caption = KeyAscii
If KeyAscii = 3 Or KeyAscii = 22 Then Exit Sub
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
End If
End If

中に
If KeyAscii = 3 Or KeyAscii = 22 Then Exit Sub
の 一行入れるだけでＯＫ！

お礼

すばらしい！！

ついでに２４と２６を入れたらCtrl-XとCtrl-Zも出来ました。

迅速な回答ありがとうございました！！