tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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
'---------------------------------------------------------------
その他のコードは投稿時と同じです。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。