キーボードからの入力制限をかけるには？（VB6.0） (ID:126330)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 まあ、こうかな．．． Private Sub Text1_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case vbKeyA To vbKeyJ KeyAscii = KeyAscii - 17 Case vbKeyBack, vbKeyDelete KeyAscii = KeyAscii Case Else KeyAscii = 0 End Select End Sub