vb2010 フォーカスを点滅させるには？ (ID:147608)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

環境：vb2010 , Windows7 Pro(SP1) , Oracle11gR2  , ImputMan6.0j

下記作業をした時に指定したオブジェクトにフォーカスは
あるみたいなのですが「｜」が点滅状態になっておらず
一回何かkeyをおすと点滅状態になって入力が反映されます。
まとまりのない文章になったり、説明不足な部分もあるかとは
思いますがご教示お願いします。

作業
①データベースのテーブルから１レコードを取得して画面に表示
②F10を２回押して更新（メッセージ画面でF10ではなくマウスで「はい」をクリックした時は問題の現象は発生しません）

※更新は「更新」ボタンを作成して、「更新」ボタンの Clickイベント
中にデータベースの更新処理をかいています。
そしてフォームの KeyDown イベントでF10の時に「更新」ボタンClickイベントを呼び出ししています。
もう１つ「更新」ボタンClickイベントに確認メッセージ(DLL)を出力してその
メッセージ画面でも「はい」をKeyDownイベントのF10に割り当てています。

メッセージ画面のDLLではYes,Noの値を値渡ししています。

ちなみにVB6では問題なく、VB2005ではフォームのKeyDownイベントのF10割り当て処理の最後にe.Handled=Trueを追記したら現象は回避出来ていました。

フォームのKeyDownイベントにMe.activate をいれてみましたが駄目でした。
検索の仕方が悪いのか思うような内容がヒットせず悩んでいます。
宜しくお願いします

コードの一部
    'フォームのKeyDowunイベント
    Private Sub H40_01EF1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        Select Case e.KeyCode
            Case &H70S ' ｆ・１    終了処理
                '
            Case &H71S ' ｆ・２    戻る
                If BtnReset.Enabled = True Then
                    Call BtnReset_Click(BtnReset, New EventArgs())
                End If
                e.Handled = True
            Case &H72S ' ｆ・３
                '
            Case &H73S ' ｆ・４
                '
            Case &H74S ' ｆ・５
                '
            Case &H75S ' ｆ・６    入力（ＫＥＹ）
                If BtnNyuryoku.Enabled = True Then
                    Call BtnNyuryoku_Click(BtnNyuryoku, New EventArgs())
                End If
                e.Handled = True
            Case &H76S ' ｆ・７
                '
            Case &H77S ' ｆ・８
                '
            Case &H78S ' ｆ・９    更新継続（ＤＡＴＡ）
                '
            Case &H79S ' ｆ・10    更新（ＤＡＴＡ）
                If BtnKoushin.Enabled = True Then
                    Call BtnKoushin_Click(BtnKoushin, New EventArgs())
                End If
        End Select
    End Sub

'データ更新処理
    Private Sub BtnKoushin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKoushin.Click
        Select Case W_Mode
            Case "照会"
                '-- 画面クリア --
                Call Clr_Data()
                '-- Key部へ移動 --
                Call Mov_Key()
                Me.TexSeq.Select()
                Exit Sub
            Case "新規", "変更"
                '-- 項目チェック --
                Call Chk_All()
                If St <> 0 Then
                    St = 0
                    Exit Sub
                End If
        End Select
        '-- 確認メッセージ表示 --
        Select Case W_Mode
            Case "新規"
                Call MSG_01SP.Serch(W_Mode, My.Application.Info.Title, "データを追加します。よろしいですか？", St)
            Case "変更"
                Call MSG_01SP.Serch(W_Mode, My.Application.Info.Title, "データを変更します。よろしいですか？", St)
            Case "削除"
                Call MSG_01SP.Serch(W_Mode, My.Application.Info.Title, "データを削除します。よろしいですか？", St)
        End Select
        If St = MsgBoxResult.No Then
            Me.BtnReset.Select()
            Exit Sub
        End If
        '--カーソル設定 --
        Me.Cursor = Cursors.WaitCursor
        '-- 更新処理 --
        Call Koushin_Rtn()
        '-- エラー処理及びトランザクション処理 --
        If Flg_Roll = " " Then
            'コミット(更新最終確定)
            Trn.Commit()
        Else
            'ロールバック(更新内容破棄)
            Trn.Rollback()
        End If
        'DB接続解除
        OraCon.Close()
        'ロック画像解除
        PtbLock.Visible = False
        '画面設定
        Call Clr_Data()
        If W_Mode = "新規" Then
            Call Shinki_Rtn()
        Else
            '-- Key部へ移動 --
            Call Mov_Key()
            Me.TexSeq.Focus()
        End If
        '-- カーソル設定
        Me.Cursor = Cursors.Default
    End Sub

←解決時は質問者本人がここをチェックしてください。

戻る