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

名前

ホームページ(ブログ、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
        
        Static Flg As Boolean
        If Flg Then Exit Sub                      '禁止フラグオン？
        Flg = True

Select Case e.KeyCode
              Case vbKeyRET             'ＲＥＴキー
                   K_code = vbKeyRET
              Case vbKeyTab             'ＴＡＢキー
                   K_code = vbKeyTab
              Case vbKeyESC             'ＥＳＣキー
                   result = InputBox("№を入力してください" _
                   , "№入力", No        '№の入力

ここからの処理に移ってくれない

For i = 0 To LinMax
                        データを入寮した番号で検索
                   Next
                    検索で見つからなかったのでデータ追加
                    Flg = False
              Case vbKeyF2               'Ｆ２キー（終了）
                   K_code = vbKeyF2
      End Select

End Sub

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

戻る