[英]How to generate control from control name in vba?
我有一个 sub 将参数中的控件名称作为字符串接收,我想将该名称转换为我尝试过的控件:
Public Sub text_initialize(ByVal CurrentPage As String)
Dim ctrl As Control
For Each ctrl In UserForm1.MultiPage1.Controls(CurrentPage).Controls
'some code here
Next ctrl
End Sub
在通话中我这样做了:
text_initialize "Page1"
我发现为文本框提到的解决方案“Controls(CurrentPage)”,但它似乎不适用于页面!
如果有任何其他方法可以将页面作为参数传递,以便我可以修改它上面的所有控件,我想知道。
感谢@CherryDT,他在我的代码中发现了两个错误,首先我应该使用Page1
而不是page1
和Pages
而不是Controls
,我发现由于某种原因我不得不用UserForm1.MultiPage1
替换MultiPage1
所以现在正确的代码是:
Public Sub text_initialize(ByVal CurrentPage As String)
Dim ctrl As Control
For Each ctrl In UserForm1.MultiPage1.Controls(CurrentPage).Controls
'some code here
Next ctrl
End Sub
并这样称呼它:
text_initialize "Page1"
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.