Ｐａｇｅ 119 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼複数行入力可のテキストボックスで上下キーを連続して押した時のフォーカス移動 haru 02/9/23(月) 17:37 ┗Re:複数行入力可のテキストボックスで上下キーを連続して押した時のフォーカス移動 ぴかる 02/9/23(月) 19:47 ┗Re:複数行入力可のテキストボックスで上下キーを連続して押した時のフォーカス移動 haru 02/9/23(月) 21:51 ┗Re:複数行入力可のテキストボックスで上下キーを連続して押した時のフォーカス移動 ぴかる 02/9/24(火) 8:00 ─────────────────────────────────────── ■題名 ： 複数行入力可のテキストボックスで上下キーを連続して押した時のフォーカス移動 ■名前 ： haru ■日付 ： 02/9/23(月) 17:37 -------------------------------------------------------------------------
| またテキストボックスに関する質問で、恐縮です。 複数行入力できるテキストボックスで上下矢印キーを連続して押 した時、このテキストボックス以外のところ（例えばコマンドボタ ン）に飛んでしまいます。 テキストボックス内で、最上下段にカーソルがある時は、上下矢 印キーを押しても、他の場所に行かないようにするにはどうすれば 良いですか？ よろしくお願いします。 |
| haruさん、こんばんは。 TextBox1が最上段で上方向動作不可、TextBox5が最下段で下方向動作不可としています。 こんなんでＯＫかな？。 Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = vbKeyUp Then KeyCode = 0 End If End Sub Private Sub TextBox5_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = vbKeyDown Then KeyCode = 0 End If End Sub |
| ▼ぴかるさん、こんばんは。 早速の御返事ありがとうございます。 >TextBox1が最上段で上方向動作不可、TextBox5が最下段で下方向動作不可としています。 >こんなんでＯＫかな？。 >Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) > > If KeyCode = vbKeyUp Then > KeyCode = 0 > End If > >End Sub >Private Sub TextBox5_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) > > If KeyCode = vbKeyDown Then > KeyCode = 0 > End If > >End Sub >TextBox1が最上段で上方向動作不可、TextBox5が最下段で下方向動作不可としています。 TextBox1が最上段でなくても常時、上方向動作不可、TextBox5が 最下段でなくても同様に下方向動作不可となってしまいました。 Excel97なんですが、当方だけの問題でしょうか？ 最上下段か否かの判定を入れればうまくいきそうなんですが、ど う書いたら良いかわかりません。 よろしくお願いします。 |
| haruさん、おはようございます。 > TextBox1が最上段でなくても常時、上方向動作不可、TextBox5が >最下段でなくても同様に下方向動作不可となってしまいました。 > Excel97なんですが、当方だけの問題でしょうか？ どんな位置でも位置判定は入れてないからそうなります。ユーザーフォーム内の最上段、 最下段のテキストボックスにコードを入れればＯＫと思ってました。 ゴメンナサイ、位置判定までは私は？？？です。 |