 |
|
Модераторы: mihanik |
 
|
|
цикл по однотипным объектам формы 
| kb-nn |
|
|||
|
Бывалый  Профиль Группа: Участник Сообщений: 227 Регистрация: 23.12.2003 Где: Нижний Новгород Репутация: нет Всего: 1 |
слушайте.
какможно организовать цикл по всем объектам заданного типа на форме? например обойти все Label ы |
|||
|
||||
Загрузка ...
| ~FoX~ |
|
|||
 НЕ рыжий!!! Профиль Группа: Участник Клуба Сообщений: 2819 Регистрация: 8.10.2003 Где: Зеленоград Репутация: 1 Всего: 68 |
В свойстве index своих объектов указываешь номера от 0 до n
И перебераешь так
Только имена у них должны быть одинаковые  но зато очь удобно --------------------  …множественность никогда не следует полагать без необходимости… |
|||
|
||||
| kb-nn |
|
|||
|
Бывалый Профиль Группа: Участник Сообщений: 227 Регистрация: 23.12.2003 Где: Нижний Новгород Репутация: нет Всего: 1 |
спасибо.!!!!
но у меня так не получится. мне надо для VBA в VBA нет у объектов формы свойства Index но как-то можно было еще. проход по всем объектам формы вообще,и если тип= "label" то что-то делать. |
|||
|
||||
| Akina |
|
|||
|
Советчик Профиль Группа: Модератор Сообщений: 20581 Регистрация: 8.4.2004 Где: Зеленоград Репутация: 26 Всего: 454 |
Тебе в "Программирование, связанное с MS Office". Попроси модератора перенести. А вообще у формы среди ее свойств есть коллекция контролов, каждый из которых имеет свойство "Тип". -------------------- О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума. |
|||
|
||||
| ~FoX~ |
|
|||
|
НЕ рыжий!!! Профиль Группа: Участник Клуба Сообщений: 2819 Регистрация: 8.10.2003 Где: Зеленоград Репутация: 1 Всего: 68 |
For Each...Next - по моему то что тебе надо
-------------------- …множественность никогда не следует полагать без необходимости… |
|||
|
||||
| cardinal |
|
|||
 Инженер Профиль Группа: Экс. модератор Сообщений: 6003 Регистрация: 26.3.2002 Где: Германия Репутация: нет Всего: 99 |
Модератор: Тема перемещена из VB.
-------------------- Немецкая оппозиция потребовала упростить натурализацию иммигрантов В моем блоге: Разные истории из жизни в Германии "Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие |
|||
|
||||
| kb-nn |
|
|||
|
Бывалый Профиль Группа: Участник Сообщений: 227 Регистрация: 23.12.2003 Где: Нижний Новгород Репутация: нет Всего: 1 |
про For Each этои так понятно.
как получить в массиве все объекты формы? как из них выделить объекты какого-то конкретного типа? |
|||
|
||||
| cardinal |
|
|||
|
Инженер Профиль Группа: Экс. модератор Сообщений: 6003 Регистрация: 26.3.2002 Где: Германия Репутация: нет Всего: 99 |
В VB так:
-------------------- Немецкая оппозиция потребовала упростить натурализацию иммигрантов В моем блоге: Разные истории из жизни в Германии "Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие |
|||
|
||||
| Staruha |
|
|||
 Эксперт Профиль Группа: Участник Клуба Сообщений: 1292 Регистрация: 1.2.2004 Где: Казань Репутация: 13 Всего: 27 |
Может ты просто хочешь изменить текст тогда
UserForm2.Label1.Caption = "Меняем текст" -------------------- Возмездие настигнет |
|||
|
||||
| Staruha |
|
|||
|
Эксперт Профиль Группа: Участник Клуба Сообщений: 1292 Регистрация: 1.2.2004 Где: Казань Репутация: 13 Всего: 27 |
Или так?
Добавлено @ 11:47 Private Sub CommandButton1_Click() Dim x As Object For Each x In Form.Controls TextBox1.Value = Left(x.Name, 5) If TextBox1.Value = "Label" Then TextBox2.Value = TextBox2.Value + 1 MsgBox "Ура!Я нашел Label" & TextBox2.Value End If Next End Sub -------------------- Возмездие настигнет |
|||
|
||||
| Staruha |
|
|||
|
Эксперт Профиль Группа: Участник Клуба Сообщений: 1292 Регистрация: 1.2.2004 Где: Казань Репутация: 13 Всего: 27 |
 -------------------- Возмездие настигнет |
|||
|
||||
| boevik |
|
|||
 Эксперт Профиль Группа: Участник Клуба Сообщений: 1452 Регистрация: 31.5.2004 Где: Израиль Репутация: нет Всего: 35 |
Если надо пробежать только по labels, то
-------------------- Никогда не говори никогда |
|||
|
||||
|
|
| Правила форума "Программирование, связанное с MS Office" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще!
|
| 1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Программирование, связанное с MS Office | Следующая тема » |
[ Время генерации скрипта: 0.0814 ] [ Использовано запросов: 21 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |