VB初心者友の会 - 超初心者専用Q&A掲示板過去ログ

> 固定ダイアログにいくつかのコントルールを貼り付けて、全てのKeyUpイベントをフォーム
> で受け取るようにしました。
> しかし、コマンドボタンにフォーカスがある状態で、KeyUpイベントを発生させたところ、
> フォームのKeyUpイベントが二回発生してしまいました。
> 同じ要領でKeyDownイベントをしらべましたが、こちらは一回しか発生していませんでした。
> コマンドボタンのKeyUpイベントとフォームのKeyUpイベントで合わせて二回になるのかとも
> 思いましたが、それだとKeyDownイベントが１回しか起きない説明がつかず、コマンドボタン
> のイベントなのになぜフォームのイベントとしてKeyUpイベントが起きるのか解りません。

　同じ開発環境ですが、こちらではそのような障害は見られません。KeyUp、KeyDownとも同様です。

　「全てのKeyUpイベントをフォームで受け取る」というのは、フォームのKeyPreviewプロパティを
Trueにしているということだと思います。このプロパティは、フォームがキーイベントを受け取るか
どうかを指定するもので、Trueにすると、フォームのキーイベント→フォーム上のコントロールの
キーイベントの順で確かにキーイベントは2回発生します。

　しかし、そのイベントを受け取るプロシージャはそれぞれ別ですので、フォームのKeyUpイベント
プロシージャは1回しか発生しないはずです。間違って、コマンドボタンのKeyUpイベントプロシージャ
にもフォームのKeyUpイベントプロシージャと同じ処理を入れてしまったりしていませんか？

回答ありがとうございます。

> 　同じ開発環境ですが、こちらではそのような障害は見られません。KeyUp、KeyDownとも同様です。

申し訳ありません。
今試してみたところ、KeyDownにも同じ現象が現れてしまいました。
 
> 　「全てのKeyUpイベントをフォームで受け取る」というのは、フォームのKeyPreviewプロパティを
> Trueにしているということだと思います。このプロパティは、フォームがキーイベントを受け取るか
> どうかを指定するもので、Trueにすると、フォームのキーイベント→フォーム上のコントロールの
> キーイベントの順で確かにキーイベントは2回発生します。

KeyPreviewプロパティはTrueにしています。

> 　しかし、そのイベントを受け取るプロシージャはそれぞれ別ですので、フォームのKeyUpイベント
> プロシージャは1回しか発生しないはずです。間違って、コマンドボタンのKeyUpイベントプロシージャ
> にもフォームのKeyUpイベントプロシージャと同じ処理を入れてしまったりしていませんか？

同一フォーム上の他のコントロールにはKeyUpイベントプロシージャを記述していません。

> > 　同じ開発環境ですが、こちらではそのような障害は見られません。KeyUp、KeyDownとも同様です。
> 申し訳ありません。
> 今試してみたところ、KeyDownにも同じ現象が現れてしまいました。
レス：
・「Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)」
・「Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)」
上記イベントの引数は、「KeyCode」・「Shift」が有ります。
引数「Shift」は、{Alt or Ctrl or Shift}キー押下で、評価されますが、
引数「KeyCode」でも評価されます。
故に、{Alt or Ctrl or Shift}キーと何か別のキー(仮に"A"〜"Z")を同時に押下した場合に、
イベントが２回実行されます。
例１：
「{Ctrl}＋"A"」キーを押下すると、{Ctrl}キーが引数「KeyCode」に渡されイベントが１回発生する。
次に "A"キー押下時のイベントが発生しますので、計２回のイベントが発生する。
・・・引数「KeyCode」の評価は、キーを押す順番に既存します。

> レス：
> ・「Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)」
> ・「Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)」
> 上記イベントの引数は、「KeyCode」・「Shift」が有ります。
> 引数「Shift」は、{Alt or Ctrl or Shift}キー押下で、評価されますが、
> 引数「KeyCode」でも評価されます。
> 故に、{Alt or Ctrl or Shift}キーと何か別のキー(仮に"A"〜"Z")を同時に押下した場合に、
> イベントが２回実行されます。
> 例１：
> 「{Ctrl}＋"A"」キーを押下すると、{Ctrl}キーが引数「KeyCode」に渡されイベントが１回発生する。
> 次に "A"キー押下時のイベントが発生しますので、計２回のイベントが発生する。
> ・・・引数「KeyCode」の評価は、キーを押す順番に既存します。

さだ殿
丁寧な回答ありがとうございます。
今ちょっと確認してみましたが、
ひとつのキーをUpした状態でもやはりイベントが２回おきてしまいました。

実は今、新たな発見があったのですが、
Microsoft Forms 2.0 Object Libraryにあるコマンドボタンコントロールに、
フォーカスがあたっている時KeyUpイベントを発生させると、
このイベントが２回おきました。
上記現象についてもしくは、上記コントロールについてご教授頂けないでしょうか？
よろしくお願い致します。

> 今ちょっと確認してみましたが、
> ひとつのキーをUpした状態でもやはりイベントが２回おきてしまいました。

横入りですが、簡単にコードを書いてみたらいかがでしょうか。全部書けとはいいませんが、骨組み
だけでも書かれては？
少なくとも「どのキー」をUpした時に「どんなイベント」が発生するかだけでもわからないと・・・

> 実は今、新たな発見があったのですが、
> Microsoft Forms 2.0 Object Libraryにあるコマンドボタンコントロールに、
> フォーカスがあたっている時KeyUpイベントを発生させると、
> このイベントが２回おきました。
レス
この現象を確認致しました。
「Microsoft Forms 2.0 Object Library」は、ActiveXのコンポーネントですね。
そして、ＶＢＡのコンポーネントと認識しています。
このコンポーネントが持つ、フォーカスがセットができる、コントロールをいくつか試しましたところ、
コマンドボタン以外に、チェックボックスとテキストボックスが同じ現象が起きると確認しました。
バグっぽいですね。僕には分かりません。ＶＢ６の標準コンポーネントは、その現象は起きません。
もしＶＢＡ上での作業なら、「VBスクリプト掲示板」で対応してくれるかもしれません。
ＶＢ６上で行っているなら、ＶＢ６の標準コンポーネントのコントロールをなるべく使用した方が、
無難ですね。同じようなコントロールがあるんですから。

> この現象を確認致しました。
> 「Microsoft Forms 2.0 Object Library」は、ActiveXのコンポーネントですね。
> そして、ＶＢＡのコンポーネントと認識しています。
> このコンポーネントが持つ、フォーカスがセットができる、コントロールをいくつか試しましたところ、
> コマンドボタン以外に、チェックボックスとテキストボックスが同じ現象が起きると確認しました。
> バグっぽいですね。僕には分かりません。ＶＢ６の標準コンポーネントは、その現象は起きません。
> もしＶＢＡ上での作業なら、「VBスクリプト掲示板」で対応してくれるかもしれません。
> ＶＢ６上で行っているなら、ＶＢ６の標準コンポーネントのコントロールをなるべく使用した方が、
> 無難ですね。同じようなコントロールがあるんですから。

この質問を匿名で投稿していたしんです。

さだ殿
VB6上で用いています。
有力情報ありがとうございます。

たもつ殿
ご指摘ありがとうございます。
キーに関しては全てのキーが該当しました。
ファンクションキーも含めてすべてでした。
イベントとはForm_KeyUpです。