对一个Frame内控件的遍历

1 .
Dim  objControl  As  Control

For   Each  objControl  In   Me .Controls
If  objControl.Container.Name  =   " Frame1 "   Then
Debug.Print objControl.Name
End   If
Next


2 .
Public   Sub  OperateFrame( ByRef  objFrame  As  VB.Frame,  ByVal  intOperation  As   Integer )
' \\***********************************************************************
' \\函 数 名：OperateFrameTextBox
' \\输 入： ByRef objFrame(VB.Frame) -
' \\ ： ByVal intOperation(Integer)
' \\ 1: 表示清空TextBox,
' \\ 2: 表示Enable所有TextBox
' \\输 出：无
' \\功能描述：对一个Frame内的TextBox或者ComboBox进行操作，如清空TextBox,Enable或者Disable等
' \\全局变量：
' \\使用例子：Call OperateFrame(Me.Frame2, 3)
' \\日 期：2004-09-22
' \\修 改 人：
' \\日 期：
' \\版 本：V1.0.0
' *************************************************************************
Dim  objControl  As  Control
Dim  TopForm  As  VB.Form

On   Error   GoTo  ErrHandle

Set  TopForm  =  GetTopContainer(objFrame)

For   Each  objControl  In  TopForm.Controls
Select   Case  intOperation
Case   1
' \\ 1 表示清空frame内所有TextBox
If  (objControl.Container.Name  =  objFrame.Name)  And  ( TypeName (objControl)  =   " TextBox " )  Then
objControl.Text  =   ""
End   If
Case   2
' \\ 2 表示Enable所有frame内的TextBox
If  (objControl.Container.Name  =  objFrame.Name)  And  ( TypeName (objControl)  =   " TextBox " )  Then
objControl.Enabled  =   True
End   If
Case   3
' \\ 2 表示Enable所有frame内的TextBox
If  (objControl.Container.Name  =  objFrame.Name)  And  ( TypeName (objControl)  =   " TextBox " )  Then
objControl.Enabled  =   False
End   If

Case   Else

End   Select
Next

ErrHandle:
If  Err.Number  <>   0   Then
MsgBox  Err.Description, vbCritical,  " 提示 "
Err.Clear
End   If

End Sub

Public   Function  GetTopContainer( ByRef  objCtl  As  Control)  As   Object
' \\***********************************************************************
' \\函 数 名：GetTopContainer
' \\输 入：ByRef objCtl(Object)
' \\输 出：(Object)
' \\功能描述：获得某控件的顶层容器
' \\使用例子：Set TopForm = GetTopContainer(objFrame)
' \\全局变量：
' \\日 期：2004-09-22
' \\修 改 人：
' \\日 期：
' \\版 本：V1.0.0
' *************************************************************************
Dim  objContainer  As   Object
Dim  objMe  As   Object
Dim  i  As   Integer
i  =   1

On   Error   GoTo  ErrHandle

' \\一层层向上获得Container，直到最高一层（为Form对象）
' \\这时候由于不存在Container对象，会诱发错误438(对象不支持该属性或方法)
Set  objMe  =  objCtl
Do   Until   1   =   2
If  i  >   2   Then
Set  objMe  =  objContainer
End   If
Set  objContainer  =  objMe.Container
i  =  i  +   1
If  i  >   100   Then
' \\当循环超过100次，应该是存在错误了
MsgBox   " 异常情况！！ " , vbCritical,  " 提示 "
Exit Function
End   If
DoEvents
Loop

ErrHandle:
If  Err.Number  <>   0   Then
If  Err.Number  =   438   Then
Set  GetTopContainer  =  objMe
Else
MsgBox  Err.Description, vbCritical,  " 提示 "
End   If
End   If

End Function