キー入力を制限しつつ、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 回答日時： 2003/02/18 00:18

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も出来ました。

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

お礼日時：2003/02/18 00:26