遍历文本框的问题？

Question

如何在遍历文本框的时候写入文本框的获得焦点的颜色，和失去焦点的颜色。
即怎样用一个函数或方法完成对所有文本框的焦点颜色判断?

Answer 1

dim ctr as Object
For Each ctr in Form1.Controls
    If TypeName(ctl)="TextBox" Then
        '你的操作
    End If
Next

Answer 2

跟楼上的一样,小许不同
 
    Dim Ctl As Control
    For Each Ctr In Me.Controls
        If UCase$(TypeName(Ctl)) = UCase$("TextBox") Then
           '操作
        End If
    Next

Answer 3

2个问题:1.此代码应该写在哪里呢，我是为了对所有text监控？
        2.在操作方面，我想进行焦点判断，使用ctr_Gotfocus好像不行啊？
    Dim Ctl As Control
    For Each Ctr In Me.Controls
        If UCase$(TypeName(Ctl)) = UCase$("TextBox") Then
           if ctr_gotfocus then
                 ctr.backcolor=""
           end if
        End If
    Next
    这段代码应该如何修改？

Answer 4

Private Sub Form_Click()
  Dim Ctl As Control
    For Each ctr In Me.Controls
        If Me.ActiveControl Is ctr Then ctr.BackColor = vbRed
        Next
End Sub

Answer 5

回northwolves(野性的呼唤) ( ) ：
当点击文本框时不会出现form_click事件，请高手再给答案

Answer 6

在每个TextBox的click事件中都调用Form_Click