ＶＢでEnterを押すとＴａｂで飛ぶ様にする

お世話になります。
ＶＢ初心者です。ＶＢでフォームを作り、TEXTBOXを複数作ると、Ｔａｂキーでタブストップの順番にカーソルが移動しますが、Ｅｎｔｅｒを押すとカーソルが移動するようにするのはどうしたら良いのでしょうか？
宜しくお願いします。

No.2 ベストアンサー 回答者： noname#4564 回答日時： 2003/03/05 09:36

　

TextBox_KeyPress イベントでKeyAsciiを無効にした後、

(1) 移動先のコントロールにSetFocusする。
(2) SendKeysで<TAB>キーの仮想キーコードを送信する。
(3) Win32APIのkeybd_eventで　　　　　〃

のいずれかで可能です。それぞれの長所、短所は、

(1) タブオーダーの仕変のたびにコードの保守が必要。(保守性劣悪)
(2) NumLock、CapsLockが解除される場合がある、等、問題が多い。
(3) 古いAPIである。(SendMessage等で記述するのが望ましい？？)

(2)のコード例は下記。

Private Sub TextBox_KeyPress(KeyAscii As Integer)
　　If KeyAscii = vbKeyReturn Then
　　　　KeyAscii = 0
　　　　SendKeys {TAB}, True
　　End If
End Sub

私の知る限り、VBでは(1)～(3)ぐらいしか方法が無さそうですが、他によい方法があれば、他の人のコメントが付くでしょう。

この回答へのお礼

有難うございました。ばっちりいけました。コーディング例と詳しい長所短所までコメントいただき恐れ入ります。
結局
If KeyAscii = vbKeyReturn Then
　　　　KeyAscii = 0
　　　　オブジェクト名.Setfoucs
　　End If
でいきます。

お礼日時：2003/03/05 11:49

No.1 回答者： taknt 回答日時： 2003/03/05 09:35

キー入力のイベントで エンターキーだったら 移動させたいところにセットフォーカスしてあげます。

また、シフト＋エンターキーの処理も必要かと思いますよ。

この回答へのお礼

ありがとうございました。

お礼日時：2003/03/05 11:46