| Вопрос: простенький вопрос............. | Добавлено: 09.08.07 15:08 |
Автор вопроса:  graff0man | ICQ: 391699023 |
|
Всем привет! По-моему большой проблемы здесь нет, но я что-то немного не догоняю..... Дело вот в чем.... В процессе работы программы я получаю список компонентов для каждого из которых создается ОptionButton, и при нажатии на кнопку у меня начинается работа именно с выбранным компонентом...... дело в том что я не знаю как получить коллекцию этих самых ОptionButton'ов чтобы перебирая их найти один ОptionButton у которого Value = true...... все остальное я уже реализовал......
P.S. я в отпуск хочу....... а пока не сделаю меня не отпускают...... :о)))) |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  Дмит Вопросов: 11 Ответов: 160 |
Web-сайт: Профиль | | #1 | Добавлено: 09.08.07 19:15 |
| Если ОptionButton на форме, то ищи их в Me.Controls, переберая или по имени или по TypeName(). | ||
|
Номер ответа: 2 Автор ответа: graff0man ICQ: 391699023 Вопросов: 5 Ответов: 14 |
Профиль | | #2 | Добавлено: 10.08.07 09:25 |
| Дело в том что на листе есть ОptionButton'ы которые статические и еще я получаю их дополнительно динамически..... те я не знаю их количество а следовательно и имена..... но при добавлении каждого ему присваивается оригинальный Caption который соответствует именно этому компоненту из массива всех возможных, по которым я и проверяю...... проблема лишь в том как получить коллекцию и уже там for each'ем я проверяю если Caption совпадает с тем что нужно, то проверяю е value.... | ||
|
Номер ответа: 3 Автор ответа: AndreyMp ICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #3 | Добавлено: 10.08.07 15:44 |
|
Dim x As Object
For Each x In Me.Controls If TypeName(x) = "OptionButton" Then '.......... твой код ........... End If Next x |
||
|
Номер ответа: 4 Автор ответа: AndreyMpICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #4 | Добавлено: 10.08.07 15:48 |
| Извиняюсь, на листе это не прокатит. | ||
|
Номер ответа: 5 Автор ответа: graff0manICQ: 391699023 Вопросов: 5 Ответов: 14 |
Профиль | | #5 | Добавлено: 10.08.07 17:20 |
| Ну впринципе там не важно в книге или на листе.... Ух..... все равно спасибо.....у мну с понедельника отпуск начинается..... я прорсто передал проект на доработку...... :о)))) но все-таки было бы интересно знать, как это делается..... | ||
|
Номер ответа: 6 Автор ответа: ДмитВопросов: 11 Ответов: 160 |
Web-сайт: Профиль | | #6 | Добавлено: 10.08.07 18:46 |
|
Пример для листа:
Dim sh As Shape For Each sh In Лист1.Shapes If TypeName(sh.OLEFormat.Object.Object) = "OptionButton" Then MsgBox sh.OLEFormat.Object.Object.Caption & " = " & sh.OLEFormat.Object.Object.Value End If Next |
||
Страница: 1 |