ms-access - VBAキープレスにアクセス

Question

カーソルがテキストボックスの上にあり、ボタン「+」よりも押すと、そのテキストボックスの値が1上がる必要があります

だから私が試したのはMouseMoveを使用することですが、ここで問題は、関数OnkeyPressにある関数KeyAsciiを使用できないことです

If KeyAscii = vbKeyL Then
    Stock.Value = Stock.Value + 1
End If

何かアイデアがあれば、自由に投稿してください。事前にthnx。

score 2 · Accepted Answer

正解は: フォームでキープレビューを [はい] に設定し、テキストボックスを有効にする: False

そして、keyDown イベントよりも:

Select Case KeyCode
        Case vbKeyAdd

             Stock.Value = Stock.Value + 1
    End Select

score 0 · Accepted Answer

これは、テキストボックスのMouseMoveイベントとKeyPressイベントで行うことができます。

MouseMoveイベントを使用すると、マウスがテキストボックスの上にあることを知ることができます。そうである場合は、グローバル変数を True に設定し、それが離れるとき (テキストボックスの境界に達したとき) に False に設定します。

次に、フォームのKeyPressイベントで、グローバル変数が true かどうかを確認し、そうである場合は KeyAscii 値を確認します。

3 に答える 3