投稿日 | : 2004/02/12(Thu) 18:19 |
投稿者 | : ゆきの |
Eメール | : |
URL | : |
タイトル | : もう一つだけ教えてください!! |
InputManを使用してどうにか、機能を作成でき始めたのですが、
また問題が発生してしまいました。
お忙しいところ申し訳ありませんが、もう少しだけお知恵をお貸しください。
imText1(0)〜imText1(20)のなかで、通常処理は
つぎのimText1にカーソルが移動するのですが、例外的にimText1(3)の時だけは
imText1(5)にカーソルを移動し、imText1(5)でShift+Enterを押されたら
imText1(4)にカーソルを移動する。
また、imText1(4)でEnterキーを押すとimText1(5)にカーソル移動すると
いう形にすることになりました。
imText1(3)の時だけ
Private Sub imText1_Change(Index As Integer)
If imText1(Index).SelStart = imText1(Index).MaxLength Then
select case Index
case 3
SendKeys "{TAB 2}"
case else
SendKeys "{TAB}"
end select
End Sub
としようとしたのですが、カーソルが移動してくれません。
また、このときShift+Enterキーを押すと2つ前のテキストボックスに移動してしまいます。
(imText1(3)でShift+Enterキーを押すとimText1(1)にカーソルが移動する。正解はimText1(2))
どのように設定したらよろしいのでしょうか?
どうか教えてください。
よろしくお願いいたします。