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

名前

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

本文 VB初心者さんのソースを生かすとこうなるかな？ フォームにテキストボックスを２個配置して以下のコードを実行してみてください。 Private Sub Text1_KeyPress(KeyAscii As Integer) Text1.Text = "" Select Case KeyAscii Case 48 Text2.Text = "A" Case 49 Text2.Text = "B" Case 50 Text2.Text = "C" Case 51 Text2.Text = "D" Case 52 Text2.Text = "E" Case 53 Text2.Text = "F" Case 54 Text2.Text = "G" Case 55 Text2.Text = "H" Case 56 Text2.Text = "I" Case 57 Text2.Text = "J" Case Else Text2.Text = "" End Select End Sub 求めている事とは少し違うかもしれませんが、処理的にはこういうことでしょうか？