ボタンＥｎｔｅｒ後、タブを移動させたい への返答

投稿で使用できる特殊コードの説明。(別タブで開きます。)
本名は入力しないようにしましょう。
投稿した後で削除するときに使うパスワードです。返答があった後は削除できません。
返答する人が目安にします。相手が小学生か社会人かで返答の仕方も変わります。
最初の投稿が質問の場合、質問者が解決時にチェックしてください。(以降も追加書き込み・返信は可能です。)
※「過去ログ」について書くときはその過去ログのURLも書いてください。

以下の返答は逆順(新しい順)に並んでいます。

投稿者 タンジェント  (社会人) 投稿日時 2009/9/2 22:13:59
＞魔界の仮面弁士様

ご回答ありがとうございます！！
魔界の仮面弁士様のアドバイスに基づき、試したところ、
無事、タブ移動できました。

タブコントロールだからタブ移動のコーディングならなんとなる、という浅知恵のため、
セットフォーカス処理について完璧に忘れていました。

本当にありがとうございました。
0
投稿者 魔界の仮面弁士  (社会人) 投稿日時 2009/9/2 21:56:12 
Text1.SetFocus
で移動できます。

ただし、Text1が使用出来ない場合(EnabledやVisibleがFalseになっている場合など)は、
SetFocus メソッドは失敗します。
0
投稿者 タンジェント  (その他) 投稿日時 2009/9/2 21:25:26


お世話になっております。

フォーム上のコマンドボタン押下後、コマンドを発生させ、
なおかつ、タブを移動させるにはどうしたらいいでしょうか？
たとえば、

Private Sub Command1_Click()

	Text1.Text = Date

End Sub

という、ボタンを押したらテキストボックスに日付が入力されるという
単純なプログラムですが、ボタンを押したら日付が表示され、なおかつ
Text1にタブ移動させるにはどう処理を加えればいいのでしょうか?

Private Sub Command1_KeyPress(KeyAscii As Integer)

        If KeyAscii = vbKeyReturn Then

            KeyAscii = 0

            SendKeys "{TAB}"

        End If

End Sub


を付け加えましたが、うまくいきません。

よろしくお願いいたします。
0