VPF::Массив из объектов без индексов

dnr

Дата 28.9.2010, 23:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 28.9.2010
Где: tver

Репутация: нет
Всего: нет

Возможно ли объеденить группу объектов заданых на форме без индексов например Text1, Text2 и т.д. до Textx в массив и изменить их свойства к примеру Visible = False, и как вообще можно упростить это:

Код


Text1.Visible = True
Text2.Visible = True
'......
Text10.Visible = True
Text11.Visible = True
Text12.Visible = False
Text13.Visible = False
Text14.Visible = False
Text15.Visible = False

что то типа:

Код


Dim X As Long
For X = 12 To 15
TextX.Visible = False
Next X

но это естественно не работает!! :(___________________________

Код


Option Explicit

Private Sub Command1_Click()
   Dim x As Object
   
For Each x In Me.Controls
    If TypeName(x) = "TextBox" Then

        x.Visible = False
    End If
Next x

End Sub

Это работает но хотелось бы как то выборочно тут же прячет все тексты на форме
Помогите новичкам!!

Это сообщение отредактировал(а) Akina - 29.9.2010, 07:31

admsasha

Дата 29.9.2010, 04:22 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 763
Регистрация: 28.1.2005

Репутация: 1
Всего: 6

Можно либо массив необходимых элементов для скрытия завести.

Либо, если учитывать твой пример, добавить

Код


if int(mid(x.name,5))>=12 and int(mid(x.name,5))<=16 then

Если не хочешь индекс, можешь дать им названия и особую нумерацию (например, text1000, text1001)

Akina

Дата 29.9.2010, 07:50 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Читаем справку по коллекции Controls формы - там есть и свойство Type, и свойство Name...
Читаем справку по термину "Управляющий массив".

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

admsasha

Дата 29.9.2010, 08:20 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 763
Регистрация: 28.1.2005

Репутация: 1
Всего: 6

Цитата(Akina @ 29.9.2010, 14:50

)

Читаем справку по коллекции Controls формы - там есть и свойство Type, и свойство Name...

Ну а я что сказал ? Или это не меня поправил ?

или вы про

Код


For X = 12 To 15
Controls("text" & X).Visible = False
next X

?

Это сообщение отредактировал(а) admsasha - 29.9.2010, 08:23

Akina

Дата 29.9.2010, 08:26 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Цитата(admsasha @ 29.9.2010, 09:20

)

а я что сказал ? Или это не меня поправил ?

Нет, это топикстартеру

Цитата(admsasha @ 29.9.2010, 09:20

)

или вы про

ну в том числе и...

--------------------

dnr

Дата 12.10.2010, 08:43 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 28.9.2010
Где: tver

Репутация: нет
Всего: нет

Код


if int(mid(x.name,5))>=12 and int(mid(x.name,5))<=16 then

это не догнал, а вот это

Код


For X = 12 To 15
Controls("text" & X).Visible = False
next X

подошло спасибо!!!!

Это сообщение отредактировал(а) Akina - 12.10.2010, 08:53

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »