- ベストアンサー
ＶＢでテキストＢＯＸにカーソル
ＶＢで text1 にカーソルがある場合に同時にlabel1に 「現時テキスト１にカーソルがあります」と言うふうに表示させる場合どうずればよいのでしょう？
- a12b12
- お礼率51% (152/297)
- Visual Basic
- 回答数2
- ありがとう数0
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
GotFocusイベントを利用します。フォームモジュールで以下のようになります。 Private Sub text1_GotFocus() label1.Cpation = "現時テキスト１にカーソルがあります" DoEvents End Sub また、カーソルが移動するたび同様な処理が必要なら同じコーディングをテキストボックス毎にする必要があります。
その他の回答 (1)
- mld_sakura
- ベストアンサー率20% (264/1282)
回答No.2
テキストボックスの「Click」と「Keypress」イベントにLabelに「カーソルあり」を書き込んでやり、「LostFocus」で「カーソルなし」ではどうでしょう？
質問者
補足
ありがとうございます！出来ました！ あともう一つ質問よろしいでしょうか？ 「あいうえお かきくけこ」 が入る大きさのラベルがあります。 ここに「さしすせそ、たちつてと」と追加すると 見えなくなってしまいます。 あくまでもラベルの大きさは変えないで、 スクロール出来て見えるように出来ますでしょうか？
補足
ありがとうございます！出来ました！ あともう一つ質問よろしいでしょうか？ 「あいうえお かきくけこ」 が入る大きさのラベルがあります。 ここに「さしすせそ、たちつてと」と追加すると 見えなくなってしまいます。 あくまでもラベルの大きさは変えないで、 スクロール出来て見えるように出来ますでしょうか？