VB.NETにてWindowsMobile5.0の開発をしております。
下記のようにテキストボックスにフォーカスがきたら色を変える処理をしてますが、
テキストボックスがたくさんある場合どこがフォーカスされているか知ってテキストボックスなら色を変えると言う処理にしたいです。
何卒、ご教授のほどよろしくお願いします。
Private Sub T_ATO_GetFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T_ATO.GotFocus
T_ATO.BackColor = Color.Aqua
TextBox_ENT.Text = T_ATO.Text
End Sub
Private Sub T_ATO_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T_ATO.LostFocus
T_ATO.BackColor = Color.White
End Sub
No.2ベストアンサー
- 回答日時:
テキストボックス分だけその2つの処理を書くと大変だと思うのですが、
下記ではどうでしょうか?
Private Sub TextBox_GotFocus(ByVal sender As Object, ByVal e As EventArgs) _
Handles TextBox1.GotFocus, _
TextBox2.GotFocus, _
TextBox3.GotFocus, _
TextBox4.GotFocus, _
TextBox5.GotFocus, _
TextBox6.GotFocus
Dim box As TextBox = CType(sender, TextBox)
box.BackColor = Color.Aqua
'TextBox_ENT.Text = T_ATO.Text
' 上記の処理が何なのか分かりませんが、TextBox個別に
' 処理をしたいならbox.Nameで名前を取得して判別できます。
End Sub
Private Sub TextBox_LostFocus(ByVal sender As Object, ByVal e As EventArgs) _
Handles TextBox1.LostFocus, _
TextBox2.LostFocus, _
TextBox3.LostFocus, _
TextBox4.LostFocus, _
TextBox5.LostFocus, _
TextBox6.LostFocus
Dim box As TextBox = CType(sender, TextBox)
box.BackColor = Color.White
End Sub
テキストボックスがどの位あるのか分かりませんが、たくさんと書かれていたので、こっちの方が管理しやすいかと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「ご処理進めて頂きますようお...
-
エクセルで、日付を入力すると...
-
findは動くがfindnextがマクロ...
-
月度は何て読みますか?
-
メルカリのメルカードで買い物...
-
Loadイベント中にほかのイベン...
-
VBAでループ内で使う変数名を可...
-
取り消し線が入った文字を削除...
-
DoEventsがやはり分からない
-
インタラクティブの反対語は?
-
お家デートをしててハグを長い...
-
iD
-
【Excel】特定の文字を含むセル...
-
ボタンクリックイベント 重複...
-
Access チェックボックスでチェ...
-
EXCEL VBA マクロ 実行する度に...
-
UMLでの例外処理
-
Select Case文でこのようなこと...
-
2重のDo~Loopは?
-
1K,1M,1Gは何Byte?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「ご処理進めて頂きますようお...
-
エクセルで、日付を入力すると...
-
VBAでループ内で使う変数名を可...
-
メルカリのメルカードで買い物...
-
【Excel】特定の文字を含むセル...
-
DoEventsがやはり分からない
-
プログラミング言語についてc++...
-
EXCEL VBA マクロ 実行する度に...
-
UMLでの例外処理
-
switch の範囲指定
-
FFTの結果ついて
-
お家デートをしててハグを長い...
-
VBの質問#if 0 then ってどう...
-
findは動くがfindnextがマクロ...
-
離散時間フーリエ変換について
-
VB.NET Excelを読み込んでDataT...
-
インタラクティブの反対語は?
-
月度は何て読みますか?
-
リョウ・・・量?料?
-
Do~Loopした回数をカウントしたい
おすすめ情報