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

名前

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

本文 こっちのほうがよくないかな。 Private Sub Text1_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case vbKey0 KeyAscii = vbKeyA '中略 Case vbKey9 KeyAscii = vbKeyJ Case Else KeyAscii = 0 End Select End Sub