VB下判断控件是否存在的函数

'*******************************************************
'*函数功能：判断控件是否存在的函数
'*参        数：frmObject    窗体名
'*                  strControlsName   待判断的控件名
'*                  lngIndex                 控件Index         非数组控件可省略该参数
'*返  回  值：True 存在    False  不存在
'*******************************************************
Function fChkControls(frmObject As Form, strControlsName As String, Optional lngIndex As Long = -1) As Boolean
On Error GoTo Err
    Dim strContrName As String
    If lngIndex >= 0 Then
        strContrName = frmObject.Controls(strControlsName)(lngIndex).Name
    Else
        strContrName = frmObject.Controls(strControlsName).Name
    End If
    fChkControls = True
    Exit Function
Err:
    fChkControls = False
End Function

转载于:https://www.cnblogs.com/topboy168/archive/2007/07/19/823709.html