| Вопрос: Групповое присвоение свойств объектам? | Добавлено: 17.07.08 14:11 |
Автор вопроса:  Aleksandr
|
|
Как очистить все имеющиеся на форме Label от текста, т.е. присвоить всем Label’ам свойство Caption = “”. И свойство Visible = (допустим) False.?
Заранее спасибо! |
| Ответы | Всего ответов: 8 |
|
Номер ответа: 1 Автор ответа:  Jasmin Вопросов: 23 Ответов: 417 |
Профиль | | #1 | Добавлено: 17.07.08 15:09 |
|
For Each ctl In UserForm1.Controls
If ctl.Name Like "Label*" Then ctl.Caption = "" ctl.Visible = False End If Next ctl |
||
|
Номер ответа: 2 Автор ответа:   Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #2 | Добавлено: 17.07.08 15:09 |
| http://vbnet.ru/forum/show.aspx?id=171046 | ||
|
Номер ответа: 3 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #3 | Добавлено: 17.07.08 15:09 |
блин 
|
||
|
Номер ответа: 4 Автор ответа: JasminВопросов: 23 Ответов: 417 |
Профиль | | #4 | Добавлено: 17.07.08 15:11 |
|
Если имена Label разные: dim ctl as control, tmplabel as label
For each ctl in me.controls if typeof ctl is label then ctl.caption="" ctl.visible=false next ctl |
||
|
Номер ответа: 5 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #5 | Добавлено: 20.07.08 02:10 |
|
If ctl.Name Like "Label*" Then
выстрел в голову |
||
|
Номер ответа: 6 Автор ответа: JasminВопросов: 23 Ответов: 417 |
Профиль | | #6 | Добавлено: 20.07.08 20:07 |
|
Ну надо же разные варианты написать. Вдруг там названия именно такие.
|
||
|
Номер ответа: 7 Автор ответа: Aleksandr Вопросов: 7 Ответов: 15 |
Профиль | | #7 | Добавлено: 23.07.08 23:56 |
|
Честно говоря, я даже не понял о чём Вы в последних ответах
Вас, разбирающихся, как, впрочем, и нас новичков, иногда трудно понять! Но ни чего, хоть я не нашёл в продаже книги А.Гарнаева "VBA в подлиннике", зато купил А.Гарнаева "Самоучитель VBA 2-е издание" и ещё пару книжек, так что скоро, надеюсь, хотябы настроюсь на волну )
Но всё-равно, всем искреннее Спасибо тем, кто помагает тому, кто хочет понять! |
||
|
Номер ответа: 8 Автор ответа: ADSemenov.ruВопросов: 5 Ответов: 276 |
Web-сайт: Профиль | | #8 | Добавлено: 24.07.08 00:10 |
|
К 4-му ответу надо подробные комментарии и тогда всё станет ясно.
|
||
Страница: 1 |