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

名前

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

本文 入力文字と変換文字ってどうなっているんだろう。 文章で書かれていることと例で書かれていることが合ってない。 一応↓みたいな感じかな。 足りない部分については補足してね。 Private Sub Text1_KeyPress(KeyAscii As Integer) Dim intKey As Integer '小文字で入力されても大文字として処理する。 intKey = Asc(UCase(Chr(KeyAscii))) Select Case intKey Case vbKeyA To vbKeyJ KeyAscii = vbKey0 + intKey - vbKeyA Case vbKeyBack Case Else KeyAscii = 0 End Select End Sub