VB初心者友の会 - はじめたばかりの人専用Q&A掲示板過去ログ

>  フォーカスの移動（上下や左右の移動）をキーボードのじゅうじキーで行うには、どうすればいいのですか。
> sendkeysとTabオーダはできました。

　　Windowsの仕様として、そういうのが無いと思うので作るしかないかも。
　　もし、他の正しい解答が来たら、これは無視してくださひ。

　　あと、フォームでキーイベントを受ける方法ってのもありそうだし。


　　とりあえず、テンキーで移動するようにデフォルトのまま４つのボタンを配置して、
　　　　　Command1
　　Command4　　Command3
　　　　　Command2
　　（こんな感じ。）
　　総てのボタンの、「KeyPressイベント」に

    If KeyAscii = Asc("4") Then
        Command4.SetFocus
    ElseIf KeyAscii = Asc("6") Then
        Command3.SetFocus
    ElseIf KeyAscii = Asc("2") Then
        Command2.SetFocus
    ElseIf KeyAscii = Asc("8") Then
        Command1.SetFocus
    End If

　　って書いてみてください。

　　あ。数値のところを、カーソルキーのコードに置き換えてください。
　　何番だっけな？　まぁ、ヘルプにあるでしょう（ぉ

すみません。どれをどうすればいいのかわかりません。ただキーボードのじゅうじキー（矢印キー）で
フォーカスを移動させたいのですが、じゅうじ（矢印）キーにコードがあるのでしょうか。
本当にヘルプをみても分かりませんでした。

> すみません。どれをどうすればいいのかわかりません。ただキーボードのじゅうじキー（矢印キー）で
> フォーカスを移動させたいのですが、じゅうじ（矢印）キーにコードがあるのでしょうか。
> 本当にヘルプをみても分かりませんでした。
出来れば、コードの番号をそのまま使うのではなく、ＶＢで用意されている定数
を使いましょう。
対応表はヘルプで、「Keycode 定数」を調べて下さい。

#コマンドボタン等のボタンコントロールはTabStopプロパティがTrueになっていると、
#カーソルのイベントが発生しないので(勝手にフォーカスが移動する)気をつけてください

>  フォーカスの移動（上下や左右の移動）をキーボードのじゅうじキーで行うには、どうすればいいのですか。

FormのKeyPreviewプロパティをTrueにしておけば、
FormのKeyDown/KeyUpイベントで、矢印キーを拾うことができます。
なお、矢印キーのキーコード定数は、vbKeyLeft 〜 vbKeyDown です。
詳しくはヘルプで「キー コード定数」「KeyDown イベント」を調べてください。

ただし、CommandButtonやOptionButton等の「ボタン系コントロール」に
フォーカスがある場合は、矢印キーを拾うことはできないので、注意してください。
（APIを使えばできないこともないんだけど、結構面倒）

キーの定数が知りたいだけなら、「キー コード定数」のヘルプをみましょう。

ただし、矢印キーによるフォーカス移動はＯＳの管理下にあるため、アプリが勝手に使う事は困難です。
（フォーム上に、フォーカスを得る事のできるコントロールが複数あると、ＶＢだけでは駄目）

諦めて、他のキーコードにしましょう。

> #コマンドボタン等のボタンコントロールはTabStopプロパティがTrueになっていると、
> #カーソルのイベントが発生しないので(勝手にフォーカスが移動する)気をつけてください

ボタン上でTabStopの影響を受けるのは、矢印キーではなく、Tabキーでは？

> ボタン上でTabStopの影響を受けるのは、矢印キーではなく、Tabキーでは？
あ、しまった・・・訂正です。
> #コマンドボタン等のボタンコントロールはTabStopプロパティがTrueになっていると、
> #カーソルのイベントが発生しないので(勝手にフォーカスが移動する)気をつけてください
ではなく、

> #コマンドボタン等のボタンコントロールは他にTabStop=Trueのコントロールが複数あると、
> #カーソルのイベントが発生しないので(勝手にフォーカスが移動する)気をつけてください
と、言いたかったんです(泣)

>> #コマンドボタン等のボタンコントロールは他にTabStop=Trueのコントロールが複数あると、
>> #カーソルのイベントが発生しないので(勝手にフォーカスが移動する)気をつけてください
> と、言いたかったんです(泣)

「カーソルのイベントが発生」って、矢印キーを押した/離したときに、
KeyDown/KeyUpイベントが発生するという話ですよね？

当方は、Win98 + VB6 ですが、
  TabStopがTrueであろうとFalseであろうと、
  他にコントールがあろうとなかろうと、
ボタン系コントロール上では、「常に」矢印キーを拾う事ができませんでした。(;_;)

> 当方は、Win98 + VB6 ですが、
>   TabStopがTrueであろうとFalseであろうと、
>   他にコントールがあろうとなかろうと、
> ボタン系コントロール上では、「常に」矢印キーを拾う事ができませんでした。(;_;)
こっちでも無理でした。 Win2000 + VB6(SP3)
済みません、適当なこと言ってました。

#TABとごっちゃになってました。確認しないと自爆しますね。

削除キー 1111

> ボタン系コントロール上では、「常に」矢印キーを拾う事ができませんでした。(;_;)

　　やってみました。
　　おおお。カーソルで勝手にフォーカス移動しますね（汗）
　　これは申し訳ない。

　　んで、あの、私の書いた初代の例のような使い方でいいなら
　　恐ろしいというか、無理やり動くのは作ってみました。

　　      Command1
　　 Command2  Command3
　　      Command4

　　   Text1

　　と配置して、

　　Command ボタン全部の、LostFocus イベントに

　　　　Text1.SetFocus

　　と、書いて、
　　Text1 の KeyUp イベントに、

    If KeyCode = 38 Then
        Command1.SetFocus
    ElseIf KeyCode = 37 Then
        Command2.SetFocus
    ElseIf KeyCode = 39 Then
        Command3.SetFocus
    ElseIf KeyCode = 40 Then
        Command4.SetFocus
    End If

　　と、書いてみてください。
　　少なくとも、カーソルキーと連動して、フォーカスが移動します。

　　これは実際にやったので間違いないです（汗）
　　（見た目が、かなり美しくないけど）