タイトル : Re^2: エンターKeyでFocus移動 投稿日 : 2009/11/13(Fri) 09:10 投稿者 : ケイ
花ちゃんさん、お返事ありがとうございます。 いつも本サイトを拝見し勉強させていただいています。 よいサイトの運営お疲れ様です。ありがとうございます。 早速、試させて頂きましたが、残念ながら、エンターKeyでは TextBox1_KeyPressイベントが発生しませんでした。 投稿した後も試行錯誤し、下のコードで、このサンプルでは問題解決しました。 しかし、要点を掻い摘んでこのサンプルを作ったつもりだったのですが、 実際のプログラムに改善コードをコーディングしても肝心な実際プログラムでは 問題解決しませんでした。 もう一度、サンプルの見直しを行うつもりです。 取り急ぎ、サンプルでは解決したことをお知らせしておきます。 Option Explicit '↓宣言追加 Private unLostFocus As Boolean '--------------------------------------------------------------- '↓プロシージャー追加 Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Cancel = unLostFocus unLostFocus = False End Sub '--------------------------------------------------------------- '↓プロシージャー変更 Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, _ ByVal Shift As Integer) If KeyCode = vbKeyReturn Then Call CommandButton1_Click unLostFocus = True '←追加 End If End Sub '--------------------------------------------------------------- その他のコードは投稿時と同じです。 |