在的表单中叠代使用控件的

发布时间：2021-09-06 07:08:07

如果您曾经遇到过在运行时修改所有控件的工作，您一定能体会到逐个修改控件是一件多么烦琐的事情了。实际上，在中有一种简单的方法可以实现这一功能。

控件选择

表单包含了一系列控件，您可以对这些控件进行循环选择，从而在运行时改变您需要的控件属性。

例如，在表单上添加两个文本框，然后添加以下的代码：

Private Sub SetControls()

Dim cControl As Control

For Each cControl ntrols

If (TypeOf cControl Is TextBox) Then

xt = \"abc\"

End If

Next cControl

End Sub

图A展示的是运行代码后您将会看到的界面。

构筑承接京津产业转移的高端平台、与国际接轨的前沿阵地；要积极发展路经济、总部经济和创新经济图A

在这个例子中，我将变量cControl定义为控件对象，然后创建了一个FOR循环来检查表单上所有的控件，如果该控件是文本框，我就将Text属性设置为“abc”，这样表单上所有的文本框的值都将被设置为“abc”。您可以按照类似的方法来设定其他类型控件的其他属性。