VB.NET　フォーカスの位置をしる方法

解決済

質問者：glee_sss
質問日時：2008/12/17 17:35
回答数：2件

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

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

ベストアンサー優先
最新から表示
回答順に表示

No.2ベストアンサー

回答者： ainax
回答日時：2008/12/17 19:33

テキストボックス分だけその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

テキストボックスがどの位あるのか分かりませんが、たくさんと書かれていたので、こっちの方が管理しやすいかと思います。