CommandButtonのKeyEventが発生しない (ID:102573)

名前

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

本文 魔界の仮面弁士様 回答して頂きありがとうございます。 コマンドボタンに書いているソースは以下になります（Keydownも同じKeyUpと同じ内容で書いています）。 この間は １．テキストボックス ２．コマンドボタン ３．テキストボックス と書きましたが、 実際はコマンドボタンが複数のテキストボックスに間にある並びとなっています（コマンドボタンは制御用のダミー項目として使用）。 １．商品コードテキストボックス ２．商品名テキストボックス ３．売上数量テキストボックス ４．単位テキストボックス ５．コマンドボタン（ダミー項目） ６．売上単価 ７．売上金額 【コマンドボタンのソース】 Private Sub 頁開始_KeyUp(Index As Integer, KeyCode As MSForms.ReturnInteger, Shift As Integer) Debug.Print "頁開始_KeyUp" & KeyCode If KeyCode = 13 Or KeyCode = 9 Or KeyCode = 97 Or KeyCode = 39 Or KeyCode = 40 Then If 売上単価(Index).TabStop = True Then 売上単価(Index).SetFocus ElseIf 売上金額(Index).TabStop = True Then 売上金額(Index).SetFocus End If ElseIf KeyCode = 37 Or KeyCode = 38 Then If 単位(Index).TabStop = True Then 単位(Index).SetFocus ElseIf 売上数量(Index).TabStop = True Then 売上数量(Index).SetFocus ElseIf 商品名(Index).TabStop = True Then 商品名(Index).SetFocus ElseIf 商品コード(Index).TabStop = True Then 商品コード(Index).SetFocus End If End If End Sub ＞キー操作以外でフォーカス移動した場合は? マウスでクリックした場合はコマンドボタンにフォーカスがとまったままでした。 ＞VB6 に、KeyEvent というイベントやプロパティは無いと思います 申し訳ありません。KeyDownとKeyUpのことを指しています。 ＞とりあえず、ボタンで止まるというか、キー入力をうまく拾えて ＞いないという話なら、それぞれのキーイベントに渡されるキー入力を、 ＞App.LogEvent メソッド等で記録して、違いを比較してみては如何でしょう。 Debug.Printで私の端末とお客さんの端末で動きを確認しました。 私の端末では、コマンドボタンにフォーカスが移動したのち(gotFocusイベント発生)、KeyUpのイベントが発生し、テキストボックスに遷移していたのですが、お客さんの端末では、 Enterや↑を遅く押した場合は私の端末と同じ動きをしますが、 すばやくEnterや↑を押した（たとえば７．の項目からすばやく↑を２回） ときにはコマンドボタンのGotFocusイベントのみが発生し、KeyUpのイベントがはしらず、コマンドボタンにとまってしまいました。 ただし、プログラムを立ち上げた直後（Form_Load後）の一回目は すばやく押してもコマンドボタンにとまるようなことはなく、 二回目以降はすばやく押すとコマンドボタンでとまってしまう現象と なってます。 ＞あと、(KeyPress ではなく)KeyDown/Up の場合は、キーボードの種類にも ＞気を付けてみてください。 普段は１０９を使っていますが、１０６でも同様でした。 今のところお客さんの端末との違いはスペックぐらいと思われます （スペックの違いでイベントがひろえないのでしょうか？）。 私の端末：Pentium4 2.66GHz メモリ504MB お客さんの端末：Intel Core2 Duo 2.93GHz メモリ2GB