AI写作智能体 自主规划任务,支持联网查询和网页读取,多模态高效创作各类分析报告、商业计划、营销方案、教学内容等。 广告
## **描述** 根据控件的显示文字点击控件,这个使用场景非常多,比如点击“确定”按钮等。 ## **语法** ClickElementByText(*strText[, intIndex = 1[, UseRegExp = False]]*) **该语法中有下列命名参数:** | 参数 | 描述 | | --- | --- | | strText | 必须的。String类型,表示要点击的控件的文字内容。 | | intIndex| 可选的。Integer类型,表示次序,如果有多个控件文字都一样,那么这个参数就有用了,依次1、2、3。。。用来区分它们,根据自己的需要使用对应的索引获取,默认是1表示符合条件的第一个控件。 | | UseRegExp | 可选的。Boolean 类型,表示是否使用正则。如果忽略,缺省值是 False,它表明默认不使用正则。 | ## **返回值** | Long | | --- | | 根据控件内容获取控件成功并且成功点击则返回1,未获取到控件或点击失败返回0 | ## **示例** ![](https://img.kancloud.cn/e6/34/e634fc586e432de5e2215a7230d64ec4_463x369.png) > **示例1** > 说明:打开记事本随便输入点内容,然后点击右上角关闭,这时我们会看到是否保存的对话框,我们用这个函数来点击“不保存”按钮,运行如下代码: ``` Dim w As New clsWindow MsgBox w.GetWindowByTitle("记事本", 0).ClickElementByText("不保存(&N)") ``` 示例1运行后我们会发现窗口关闭了,说明点击“不保存”按钮成功了。 > **示例2** > 说明:打开记事本随便输入点内容,然后点击右上角关闭,这时我们会看到是否保存的对话框,我们用这个函数来点击“保存”按钮,运行如下代码: ``` Dim w As New clsWindow w.GetWindowByTitle("记事本", 0).ClickElementByText "保存(&S)" ``` > **示例3** > 说明:直接运行下面代码即可,效果为软件自动调用计算器,然后计算6+9的结果: ``` Private Sub Command1_Click() Dim w As New clsWindow w.GetWindowByPID (Shell("calc" , 1)) '打开计算器并获得它的句柄 w.ClickElementByText "6" w.ClickElementByText "+" w.ClickElementByText "9" w.ClickElementByText "=" End Sub ``` ![](https://img.kancloud.cn/8b/51/8b51ab61d5cff880aed9a8c99c8d1a6e_578x492.png)