GotFocusイベントでフォーカスされたコントロールの名前とインデックスを取得 ↓ From_KeyDownで上下左右キーのキーコードを取得 ↓ カーソル制御用のSUBを作り、なかで SELECT case コントロールの名前 case TextBox1 IF キーコード=上キー or キーコード=右キー then TextBox1(インデックス - 1).SetFocus ELSE TextBox1(インデックス + 1).SetFocus End IF case TextBox2 ・ ・ ・ END SELECT 上記のやり方をすると、少し書き込まないといけないのですが、カーソル制御のSUBになっているので、デバッグもしやすかったですし、TextBoxの中身をみてカーソルの飛び先を変えることも簡単にできました。
DOBON.NETプログラミング掲示板過去ログ
分類:[.NET]
カーソル移動の仕方が困っています。
上下左右キーを使ってカーソルを動かそうと思うのですが、ＶＢ６以前の時代でのやり方が出来なくなってしまって困っています。
ＶＢ６以前は下記のようなやり方をしていました。
GotFocusイベントでフォーカスされたコントロールの名前とインデックスを取得
↓
From_KeyDownで上下左右キーのキーコードを取得
↓
カーソル制御用のSUBを作り、なかで
SELECT case コントロールの名前
case TextBox1
IF キーコード=上キー or キーコード=右キー then
TextBox1(インデックス - 1).SetFocus
ELSE
TextBox1(インデックス + 1).SetFocus
End IF
case TextBox2
・
・
・
END SELECT
上記のやり方をすると、少し書き込まないといけないのですが、カーソル制御のSUBになっているので、デバッグもしやすかったですし、TextBoxの中身をみてカーソルの飛び先を変えることも簡単にできました。
ＶＢ．ＮＥＴにした場合、コントロール配列が無くなったで、上記のようなことが出来ません。他に良いやり方が思い浮かびません。皆さんはどのようにされているのでしょうか？
補足：画面内のテキストボックスの数 ２０〜３０は当たり前、多いときで５０ぐらいのテキストボックスを使っています。