🚀 go-pugleaf

熊川と申します。

> 
> どうも鈴木と申します。
> 初歩的な質問ですみませんが、お願いいたします。
> 数日悩んで調べましたが解りません。
> 
> ＶＢ５のＬＥを使っているのですが、テキストボックスに数字を（数字とも限りませ
> んが）
> 入力して、入力後にＥｎｔｅｒを押すと次のテキストボックスに移動させる記述の仕
> 方が
> 解りません、Ｋｅｙｐｒｅｓｓとかでやるんでしょうか？？他にもやり方があるので
> しょうか？
> 
> すみませんがご教授お願いいたします。
> 

  基本的に対象になるテキストボックスのＫｅｙＰｒｅｓｓイベントでやりま
す。
  Private Sub Text1_KeyPress(Ascii As Integer)
      If KeyAscii = vbKeyReturn Then
          Text2.Setfocus
      End If
  End Sub
  といったやり方が一般的です。

  いんちき臭いやり方ですが、こんなのもあります。
  フォームのKeyPreviewプロパティをTrueにします。
  フォームのＫｅｙＰｒｅｓｓイベントに以下の様なコードを書きます。
  Private Sub Form_KeyPress(Ascii As Integer)
      If TypeName(ActiveControl) = "TextBox" _
          And Ascii = vbKeyReturn Then
          SendKeys "{TAB}" ,True
      End If
  End Sub
　これは、フォームがキーイベントを先に取り出して、リターンキーを押されて
い
　て、フォーカスのあるコントロールがテキストボックスの場合に、ＴＡＢキー
を
　送る。と、いった処理です。要するにＥｎｔｅｒキーをＴａｂキーに変換して
る
　だけです。
  テキストボックスでＥｎｔｅｒキーを押された場合に次のコントロールへ移動
す
　るだけであれば、下の構文でもＯＫと思います（少し恐いですけど．．．）。

  試してみてください。