VBA - OptionButton Collection

Question

我正在尝试获取一组选项按钮。我希望我的集合中的对象具有“OptionButton”类型。有没有办法做到这一点？

Private Sub SetInputs()

Dim OptionButtons As Collection
Set OptionButtons = New Collection

OptionButtons.Add (br_FKG1)

' MsgBox (TypeName(br_FKG1)) : OptionButton
' MsgBox (TypeName(OptionButtons.Item(1))) : Boolean

(...)

End Sub

谢谢，

Answer 1

知道了。如果有人在某天遇到同样的问题，那就写一下

OptionButtons.Add br_FKG1 

没有括号，以便添加对象而不是值。

没有括号，它实际上是添加的类的默认属性。对于OptionButton，它是.Value，但它可能是其他类的其他东西。