Народ подскажите по TextBox

@Владимир_Сар · Регистрация: 10.09.2009

Author24 — интернет-сервис помощи студентам

Имеется 200шт TextBox
с 50 по 200 скрыть по типу

Visual Basic

1
2
3

UserForm1.TextBox50.Visible = False
'...
UserForm1.TextBox200.Visible = False

Как зделать что-бы не перечислять все 151 шт.
Может через For как то
Если невозможно без перечисления, то так и скажите не молчите, а то уже устал набивать

@Vlanib · 18.05.2010, 15:14

А почему бы не использовать свойство Tag?

Visual Basic

'....
For Each Cntr in Me.Controls
   If Cntr.Tag = -777 Then Cntr.Visible = False
Next
'....

@Владимир_Сар · 18.05.2010, 15:29 **[ТС]**

Сообщение от Vlanib

А почему бы не использовать свойство Tag?

Visual Basic

'....
For Each Cntr in Me.Controls
   If Cntr.Tag = -777 Then Cntr.Visible = False
Next
'....

Не совсем понимаю как создать, напишите пример пожалуйста

Добавлено через 3 минуты
т.е. каждому TextBox я прописываю в Tag =-777
Странно конечно, но всеравно мороки много

Добавлено через 5 минут
В автомате тоже не пропишеш каждому нужному Box-у
Что неужели ничего нету по проще

Добавлено через 3 минуты
А если случай такой
Нужно скрыть 50 боксов
а открыть только 10 боксов
А как в таком случаи
я немогу назначить для скрываемых -777 а для отображаемых 555 для одного Бокса только один Tag

@Vlanib · 18.05.2010, 15:32

Можно так:

Visual Basic

'....
For Each Cntr in Me.Controls
   If Cntr.Name Like "*" Then Cntr.Visible = False
Next
'....

Но тоже тебе выделить надо эти 150 штук по имени. Влюбом варианте, чтобы оперировать отдельно какими-то группами контролов надо как-то сделать их отличными от других групп. По имени ли или же по .Tag. VBA не поддерживает массивы контролов, было бы проще.

@Владимир_Сар · 18.05.2010, 15:36 **[ТС]**

Сообщение от Vlanib

Можно так:

Visual Basic

'....
For Each Cntr in Me.Controls
   If Cntr.Name Like "*" Then Cntr.Visible = False
Next
'....

Но тоже тебе выделить надо эти 150 штук по имени. Влюбом варианте, чтобы оперировать отдельно какими-то группами контролов надо как-то сделать их отличными от других групп. По имени ли или же по .Tag. VBA не поддерживает массивы контролов, было бы проще.

А нельзя как то отделить порядковый номер от Текст Бокса и в зависимости от порядкового номера назначать ему видимость

@petr-sev · 18.05.2010, 16:19

Все элементы управления объединены в множество Controls.
Через него можно получить доступ к TextBox'ам по номеру

Visual Basic

Private Sub NN()
Dim I As Long
Dim Num As Long
For I = 0 To Me.Controls.Count - 1                       'среди всех элементов управления
    If Left(Me.Controls(I).Name, 7) = "TextBox" Then     'найти TextBox
       Num = CLng(Mid(Me.Controls(I).Name, 8))           'получить его номер
       If Num >= 50 And Num <= 200 Then                  'если он принадлежит множеству TextBox50-200
          Me.Controls(I).Visible = False                 'сделать его невидимым
       End If
    End If
Next
End Sub

макрос должен находится в модуле формы
me - это сама форм

@Владимир_Сар · 18.05.2010, 16:40 **[ТС]**

Спасибо, Очень интересное решение, обязательно попробую

Добавлено через 9 минут
То что надо

@Владимир_Сар 58 / 57 / 13 Регистрация: 10.09.2009 Сообщений: 255
	18.05.2010, 16:40 [ТС]	7
	Спасибо, Очень интересное решение, обязательно попробую Добавлено через 9 минут То что надо 0