タイトル : Re: エンターKeyでFocus移動 投稿日 : 2009/11/13(Fri) 08:35 投稿者 : 花ちゃん
> '--------------------------------------------------------------- > Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, _ > ByVal Shift As Integer) > If KeyCode = vbKeyReturn Then > Call CommandButton1_Click > End If > End Sub 多分、Return キーを押した事になっているので、エクセルのオプションの設定で 設定されている方向に移動しているのではないでしょうか? (VB6.0 の場合は、テキストボックス上でReturn キーを押しても移動しない) 試しては、いませんが下記のように変更して見たらどうでしょうか? (Return キーをキャンセルする) Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii = vbKeyReturn Then KeyAscii = 0 Call CommandButton1_Click End If End Sub 因みに通常は、VB6.0 の場合でも、KeyDown イベントでは処理せず、KeyPress イベントを 使用します。(移動しない代わりにBeep 音が鳴りませんか。) |