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