zoukankan      html  css  js  c++  java
  • 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
  • 相关阅读:
    图论概况
    [NOI2006]最大获利
    Dining
    [USACO5.3]校园网Network of Schools 缩点
    I Hate It
    [USACO06JAN]牛的舞会The Cow Prom Tarjan
    爱在心中
    [HAOI2006]受欢迎的牛
    泥泞的道路
    上白泽慧音
  • 原文地址:https://www.cnblogs.com/topboy168/p/823709.html
Copyright © 2011-2022 走看看