ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA Excel
4 сообщений из 4, страница 1 из 1
VBA Excel
    #32769414
Jaguar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jaguar
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
на диалоговом окне ( форме ) имеется  72  контрола 
типа TextBox . Контролы расположены в 
 9  строк *  9  колонок
TextBox1 – TextBox8
TextBox9 – TextBox16
TextBox17 – TextBox24
TextBox25 – TextBox32
TextBox33 – TextBox40
TextBox41 – TextBox48
TextBox49 – TextBox56
TextBox57 – TextBox64
TextBox65 – TextBox72

нижеидущий код делает видимым – невидимым
все  72  контролы
For Each ctrl In UserForm1.Controls
    If TypeName(ctrl) = "TextBox" Then  
         ctrl.Text =  0  
        ctrl.Visible = m_bSign
End If  '
Next

Как сделать НЕДОСТУПНЫМИ  4  правые контрола
каждой из  9 -ти строк ?

UserForm1.TextBox5.Enabled = False
UserForm1.TextBox6.Enabled = False
UserForm1.TextBox7.Enabled = False 
UserForm1.TextBox8.Enabled = False

UserForm1.TextBox13.Enabled = False
UserForm1.TextBox14.Enabled = False 
UserForm1.TextBox15.Enabled = False
UserForm1.TextBox16.Enabled = False

и так далее

СПАСИБО
...
Рейтинг: 0 / 0
04.11.2004, 18:02:36
| Ответить | Цитировать | Написать  
VBA Excel
    #32769452
Голенков Владимир
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Голенков Владимир
Гость
да всяко можно, для vb6, вероятно и для vba прокатит:

ну допустим, в том же цикле проверять имена на соответствие TextBoxN, где N mod 8 = 5, 6, 7, 0

или занести нужные имена в массив/коллекцию
или записать флаг в .Tag

или использовать Control Array и по индексу
...
Рейтинг: 0 / 0
04.11.2004, 18:17:51
| Ответить | Цитировать | Написать  
VBA Excel
    #32769592
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Голенков Владимир

или использовать Control Array и по индексу
vba не поддерживает Control Array, по крайней мере до 2000 вкл.
...
Рейтинг: 0 / 0
04.11.2004, 19:44:17
| Ответить | Цитировать | Написать  
VBA Excel
    #32770225
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Worobjoff
Участник
Можно так:
Расположить эти TextBox на Frame или PictureBox, и объявлять Enabled = x для последнего.
BorderStyle = None, конечно.
...
Рейтинг: 0 / 0
05.11.2004, 11:24:55
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=32769592&tid=2168662]:
 0ms
get settings:
 7ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 38ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 43ms
get tp. blocked users:
 2ms
others: 221ms
total:  341ms
созд. / загр.: 341ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]