2013-04-09 3 views
2

Я пытаюсь получить набор кнопок опций. Я хотел бы, чтобы объекты моей коллекции имели тип «OptionButton». Есть ли способ сделать это ?VBA - Collection 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 

Спасибо,

+2

Got it. Если у кого-то одна проблема, напишите 'OptionButtons.Add br_FKG1' без круглых скобок, чтобы добавить объект, а не значение. –

+0

Вы можете добавить это как ответ на свой вопрос, а затем принять его. –

+0

@AlexK. Я видел это, но моя репутация еще недостаточно высока, поэтому я должен подождать 8 часов после моего вопроса, чтобы ответить самому себе. Благодаря ! –

ответ

3

Понял. Если у кого-то такая же проблема, когда-нибудь, просто написать

OptionButtons.Add br_FKG1 

без скобок, так что добавляется объект, а не значение.

Без круглых скобок это свойство по умолчанию добавляемого класса. Для OptionButton это значение .Value, но это может быть что-то другое для других классов.

Смежные вопросы