使用程序标识符遍历控件

《使用程序标识符遍历控件》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、1-1使用程序标识符遍历控件工作表中的ActiveX控件还可以根据控件的程序标识符找到相应的控件，如下面的代码所示。#001PrivateSubCommandButton1_Click()#002DimObjAsOLEObject#003ForEachObjInMe.OLEObjects#004IfObj.progID="Forms.TextBox.1"Then#005Obj.Object.Text=""#006EndIf#007Next#008EndSub代码解析：工作表中按钮的单击事件，遍历工作表中的所有控件并把工作表中所有文本框的内容清空。

2、#2行代码，声明变量类型。#3行代码，使用ForEach...Next语句遍历工作表中的所有控件。#4行代码，使用控件的ProgId属性返回控件的程序标识符。ProgId属性返回控件的程序标识符，语法如下：expression.ProgId参数expression是必需的，一个有效的对象。ActiveX控件的程序标识符如表格错误！文档中没有指定样式的文字。-1所示。控件名称标识符复选框Forms.CheckBox.1组合框Forms.ComboBox.1命令按钮Forms.CommandButton.1框架Forms.Frame.1图像Forms

3、.Image.1标签Forms.Label.1列表框Forms.ListBox.1多页Forms.ListBox.1选项按钮Forms.OptionButton.1滚动条Forms.ScrollBar.1旋转按钮Forms.SpinButton.1TabStripForms.TabStrip.1文字框Forms.TextBox.1切换按钮Forms.ToggleButton.1表格错误！文档中没有指定样式的文字。-1ActiveX控件的程序标识符文本框控件返回的程序标识符是“Forms.TextBox.1"，此返回值并不受文本框控件名称的影响，所

4、以根据工作表中控件的程序标识符可以找出全部文本框控件。