KeyUpイベントが効かないようにするには (ID:91669)

名前

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

本文 特攻隊長まるるうさん、回答ありがとうございます。 [VB.NET]のバージョンは 2003、ＯＳはWindows2000、サービスパック＝４です。 キーイベント系の処理は他に利用してません。 DoEventsを使っています。当初これを使用しないとリストビューのデータが 表示できなかったのでヘルプを見て使用しました。 KeyPreview = Trueにしています。 変数を Static に変更していません。 下記にメインルーチンを書きました。 DoEventsが間違っているのでしょうか。 Private Sub Form1_Activated(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles MyBase.Activated '******************************** '* データ読込 * '******************************** Mode = 0 'モードを選択中 Call Yoteireed() '予定データ読み込み Call disp() 'データ表示 '******************************** '* オーダー選択 * '******************************** P_line = 0 '対象行№を先頭 ListView1.Items(P_line).Selected = True ListView1.Select() '先頭行をアクティブにする T_start = TimeString '開始時刻取得 Me.start.Text = T_start Me.M_Mode.Text = Msg(Mode) 'モードの表示 Do While K_code <> vbKeyRET For Each si As ListViewItem In ListView1.SelectedItems P_line = si.Index 'ポインター取得 Next Me.J_number.Text = JutyuN(P_line) '受注№表示 Me.Now.Text = TimeString '現在時刻取得 If K_code = vbKeyF2 Then GoTo OWARI '終了か？ Application.DoEvents() Loop