循环获取的代码如下,界面中包含了 N个GroupBox ,N 个CheckBox,如遇到GroupBox那么循环跳入继续找CheckBox,直接完成遍历 查找到所有打勾的CheckBox名字 最后 返回
Sub SearchControls(ByRef rControls, ByRef value)
For Each sControl In rControls
If TypeOf sControl Is CheckBox Then
If CType(sControl, CheckBox).Checked = True Then
value = vale + CType(sControl, CheckBox).Text '加入值
End If
End If
If TypeOf sControl Is GroupBox Then
SearchControls(CType(sControl, Control).Controls, value)
End If
Next
End Sub
代码是在 VB下写的,但是 CType 方法 在 VBA环境下 执行不了,有什么别的方法去替换么?
求指点!