Find centralized, trusted content and collaborate around the technologies you use most.
Teams
Q&A for work
Connect and share knowledge within a single location that is structured and easy to search.
我有一个包含这么多表单控件(如 300 个标签)的项目,我必须更改它们的所有文本。
所以我想做这样的事情
For i= 1 to 300 (Labeli).text = "xyz" Next
我无法一个一个地编写和更改所有标签,因此我需要一种方法来更改任何标签,方法是使用数字+“标签”,使其变为“标签”。
对不起我的英语,我正在等待你的帮助,谢谢:)
像这样的东西应该适合你:
For i = 1 to 300 CType(Me.Controls("Label" & i), Label).Text = "xyz" Next
如果您有嵌套的标签控件,您将需要添加递归或展平标签控件。