请问怎样实现下面的例子？

Question

sub text_blue(byval textname as textbox)
  textname.backcolor=vbblue
end sub你給每一個text  添加一個 gotfocus 事件 在事件中調用 過程 
text_blue 控件名 即可

Answer 1

控件数组!或者通过 For Each ctl In Form 来枚举For Each ctl In Controls
    If TypeOf ctl Is TextBox Then
        MsgBox ctl.Name
    End If
Next

Answer 2

供参考Public Const G_FIELD_BACKCOLOR_ENABLE = vbWindowBackground
Public Const G_FIELD_FORECOLOR_ENABLE = vbWindowText
Public Const G_FIELD_BACKCOLOR_FOCUS = vbYellow
Public Const G_FIELD_FORECOLOR_FOCUS = vbBlue
Public Const G_FIELD_BACKCOLOR_DISABLE = &HFFC0C0
Function intColorSet(intStatus As Integer, objControls As Control) As Integer    intColorSet = -1
    If intStatus <> G_FIELD_DISABLE And objControls.Enabled = False Then
        intColorSet = 0
        Exit Function
    End If
    Select Case intStatus
        Case G_FIELD_ENABLE
            objControls.BackColor = G_FIELD_BACKCOLOR_ENABLE
            objControls.ForeColor = G_FIELD_FORECOLOR_ENABLE
        Case G_FIELD_FOCUS
            objControls.BackColor = G_FIELD_BACKCOLOR_FOCUS
            objControls.ForeColor = G_FIELD_FORECOLOR_FOCUS
        Case G_FIELD_DISABLE
            objControls.ForeColor = G_FIELD_FORECOLOR_ENABLE
            objControls.BackColor = G_FIELD_BACKCOLOR_DISABLE
     End Select
     intColorSet = 0End FunctionPrivate Sub text1_GotFocus()
    Call intColorSet(G_FIELD_FOCUS, Me.text1)
End Sub

Answer 3

用控件数组Private Sub Text1_GotFocus(Index As Integer)
Text1(Index).BackColor = vbBlue
End SubPrivate Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 13 Then
   SendKeys "{tab}"
End If
End SubPrivate Sub Text1_LostFocus(Index As Integer)
Text1(Index).BackColor = vbWhite
End Sub

Answer 4

其实我乡在我的应用程序中，实现不管有多少个TEXT框，只要获得焦点，就变颜色。不管用数组还是在每个TEXT框里写东西，都很麻烦，所以我想问一问还有别的方法吗？比如在我的应用程序中监控应用程序所发生的事件，当有事件产生时，向我自定义的过程发送参数，在这里面进行处理，但是我不知道该怎么实现？WINDOWS工作机制简单一点就是这样监控的。在我的程序中怎么实现？