Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA Excel / 4 сообщений из 4, страница 1 из 1
04.11.2004, 18:02:36
    #32769414
Jaguar
Jaguar
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel
Код: 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:17:51
    #32769452
Голенков Владимир
Голенков Владимир
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel
да всяко можно, для vb6, вероятно и для vba прокатит:

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

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

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

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


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