ＶＢでテキストＢＯＸにカーソル

ＶＢで

text1　にカーソルがある場合に同時にlabel1に
「現時テキスト１にカーソルがあります」と言うふうに表示させる場合どうずればよいのでしょう？

No.1 ベストアンサー 回答者： PAPA0427 回答日時： 2003/12/22 13:45

GotFocusイベントを利用します。

フォームモジュールで以下のようになります。

Private Sub text1_GotFocus()

label1.Cpation = "現時テキスト１にカーソルがあります"
DoEvents

End Sub

また、カーソルが移動するたび同様な処理が必要なら同じコーディングをテキストボックス毎にする必要があります。

この回答への補足

ありがとうございます！出来ました！

あともう一つ質問よろしいでしょうか？

「あいうえお
　かきくけこ」　が入る大きさのラベルがあります。
　

ここに「さしすせそ、たちつてと」と追加すると
見えなくなってしまいます。
あくまでもラベルの大きさは変えないで、
スクロール出来て見えるように出来ますでしょうか？

補足日時：2003/12/22 14:14

No.2 回答者： mld_sakura 回答日時： 2003/12/22 13:45

テキストボックスの「Click」と「Keypress」イベントにLabelに「カーソルあり」を書き込んでやり、「LostFocus

」で「カーソルなし」ではどうでしょう？

この回答への補足

ありがとうございます！出来ました！

あともう一つ質問よろしいでしょうか？

「あいうえお
　かきくけこ」　が入る大きさのラベルがあります。
　

ここに「さしすせそ、たちつてと」と追加すると
見えなくなってしまいます。
あくまでもラベルの大きさは変えないで、
スクロール出来て見えるように出来ますでしょうか？

補足日時：2003/12/22 14:18