|
▼パパち さん:
クラスモジュールを使わずに無理やりやるなら、こんな感じでもできます。
それでもEnterイベントには追記していく必要があります。
Option Explicit
Private obj_Text As Control
Private Sub Chk_obj_Text()
If Not obj_Text Is Nothing Then
obj_Text.BackColor = &HFFFFFF
Set obj_Text = Nothing
End If
If TypeName(ActiveControl) = "TextBox" Then
Set obj_Text = ActiveControl
obj_Text.BackColor = &H80FFFF
End If
End Sub
Private Sub CommandButton1_Click()
Call Chk_obj_Text
End Sub
Private Sub TextBox1_Enter()
Call Chk_obj_Text
End Sub
Private Sub TextBox2_Enter()
Call Chk_obj_Text
End Sub
Private Sub TextBox3_Enter()
Call Chk_obj_Text
End Sub
|
|