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

名前

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

本文 説明不足ですいません。 キーイベントは下記のようなルーチンで、ＥＳＣキーが押されたら番号を入力させて、データ内をその番号で検索してあればその行を表示し、無ければその番号でデータを追加しようと思っております。 しかし、番号入力時のリターンを検知して再度このルーチンに入ってリターンキーの処理をしてしまい、番号入力後の処理が出来ないでいます。 従って、できればフラグではなくこのルーチンに処理が移ったら先頭でキーイベントの禁止を行い、このルーチンから抜けるときに許可を行うことができればよいのですが、そんな都合の良い命令はあるのでしょうか？ Private Sub Form_KeyUp(ByVal sender As Object, _ ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyUp Dim i, a, F_tuika, F_wari As Integer Dim result As String If F_wari = 0 Then Select Case e.KeyCode Case vbKeyRET 'ＲＥＴキー K_code = vbKeyRET Case vbKeyTab 'ＴＡＢキー K_code = vbKeyTab Case vbKeyESC 'ＥＳＣキー F_wari = 1 result = InputBox("№を入力してください" _ , "№入力", No '№の入力 №入力後にここからの処理をさせたいが、№入力時のリターンキーで上記の K_code = vbKeyRETに処理が移ってしまう。 For i = 0 To LinMax データを入寮した番号で検索 Next 検索で見つからなかったのでデータ追加 F_wari = 0 Case vbKeyF2 'Ｆ２キー（終了） K_code = vbKeyF2 End Select End If End Sub