Групповое изменение свойств объектов

существует ли возможность группового изменения свойств однотипных объектов примерно таким образом:
Если это не возможно то как это делается в принципе?

0

urman, это смотря что за объекты?
Например так -

1

Сообщение от Остап Бонд Private Sub CommandButton1_Click() For i = 1 To 3 * Controls("Надпись" & i).Visible = Not Controls("Надпись" & i).Visible Next End Sub

А как это работает? применяется для всех надписей на форме? c with не возможно сделать перечисление объектов?
в случае с Надпись1,Надпись2,Надпись3, как применить код выше?

0

юзайте For each

1

1

В вашем случае будет примерно так:
Данный код пройдётся по всем элементам и сделает невидимыми все надписи.
Если форма с вкладками или группами, можете прописать For Each в пределах одной вкладки:
Выглядит так:

1

Также копайте в сторону использования Классов. Штука весьма крутая и очень спасает именно в таких задачах с кучей элементов управления и групповой работой с ними!

1

Сообщение от Святой НякаЛайк Данный код пройдётся по всем элементам и сделает невидимыми все надписи. Если форма с вкладками или группами, можете прописать For Each в пределах одной вкладки:

Я так понимаю что код применим ко всем надписям, а если мне необходимо не все, а какие то определенные?

0

Сообщение от urman Я так понимаю что код применим ко всем надписям, а если мне необходимо не все, а какие то определенные?

опишите тогда Правило отбора надписей

0

Сообщение от shanemac51 опишите тогда Правило отбора надписей

Так я и спрашиваю как это делается?

0

Так определите их!
здесь прописано условие, согласно которому отбираются все элементы управления, имя типа которых равняется "Label"
Вам ничто не мешает сюда же прописать любое другое условие отбора
... И так далее, любое условие под ваши нужды.
Другой вариант: для начала создайте коллекцию элементов управления, туда прямо впишите нужные вам конкретные элементы, а потом их можно обрабатывать как группу.
Вот пример создания коллекции и добавления в неё двух конкретных надписей.
После чего в любой миг можно сделать так

1

Сообщение от Святой НякаЛайк Visual Basic 1 2 3 For each h in col h.visible = false next

Спасибо только вот здесь не совсем понятно что означает "h"

0

h - это объект в коллекции объектов

Добавлено через 2 минуты
чуть выше Святой НякаЛайк, дал вам код как создать коллекцию объектов
а этот код как ей уже пользоваться в вашей ситуации

0

Сообщение от snipe h - это объект в коллекции объектов

а почему именно h? можно использовать любую букву?

0

это переменная в данном случае тип Object
как вы ее обзовете - ваше дело

1

как вариант можно расположить группы контролов на фреймы. И скрывать фреймы

0

Данный код пройдётся по всем элементам и сделает невидимыми все надписи.

зачем это требуется, чем определяется выбор --например требуется скрыть кнопки в зависимости от того, кто авторизовался

0

Это неявное объявление переменной.
Как вы объявляете переменные?
Пишете, например "Dim h as Object"
Это пример явного объявления, а есть неявное, например безо всякого "Dim" сразу пишете "For Each h"
Почему именно Hи можно ли использовать любую букву? h просто в голову взбрело, потому что можно использовать любую, кроме тех, которые используются для других целей и кроме тех, которые вам явно запретит использовать бейсик.
Например, попробуете написать "Dim sub as integer" и получите ошибку, потому что слово sub использовать в коде нельзя.
Также нельзя использовать такие имена, как "Dim 123j as Long", потому что имя переменной не может начинаться с цифры.
Вот примеры неявного объявления:
В данном случае создается переменная host, изначально имеет тип Variant, но когда выполнится код "host = 120", переменная уже становится Integer.

Сделайте одолжение, скопируйте этот код:
Вставьте его в модуль листа в вашем бейсике и нажмите клавишу F8. Но прежде всего проследите, чтобы было включено окошко переменных (Меню View -> Locals Window). Когда будет включено окошко Locals, нажимайте клавишу F8 и наблюдайте, что происходит в окне локалс. Вы будете наблюдать пошаговое выполнение программы.
Потом тем же образом выполните свои процедуры. Внутренняя механика, как всё происходит, что можно и что нельзя и очень многие "Почему так?" и многие "А как можно?" у вас улягутся сами собой.

Добавлено через 8 минут
Предпочитайте использовать явное объявление переменных. Так самому для себя понятнее и эта стратегия избавит от ошибок, если не включен Option Explicit. Кроме того, желательно объявлять переменные явно, сразу определяя их тип "Dim l as long, b as byte, st as string"
Есть опытные люди, для которых всё вышеупомянутое просто неважно, так как они чувствуют себя в коде как рыба в воде, аесли опыта мало, желательно и Option Explicit включить и переменные явно объявлять и их тип сразу указывать. Избавит от бездны ситуаций типа "Вродь всё правильно, но не работает".

1

Спасибо большое за такой подробный ответ! многое стало понятно!

0