2

オプションボタンのコレクションを取得しようとしています。コレクションのオブジェクトを「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

ありがとう、

4

1 に答える 1

3

とった。誰かがいつか同じ問題を抱えている場合は、書いてください

OptionButtons.Add br_FKG1

かっこなしで、値ではなくオブジェクトが追加されるようにします。

括弧がない場合、実際には追加されるクラスのデフォルト プロパティです。OptionButton の場合は .Value ですが、他のクラスの場合は別のものになる場合があります。

于 2013-04-09T12:29:31.217 に答える