|
Переменная в имени объекта
|
|||
---|---|---|---|
#18+
Привет, ребята! Есть 40 объектов TextBox в форме Access. Называются, допустим, "П1"..."П40". Каким образом можно совершать с ними одни и те же действия? Например, мне нужно поменять П1.Caption, П2.Caption ... и так сорок раз. Пробовал: Dim i as Integer for i=1 to 40 ... with Eval("П" & i) ' "П"+"1" тоже не работает! И без With не пашет. .Caption="Хрен" End If ... Access пишет ошибку. Что-то типа "Не могу найти объект П1". А он есть железно! Мне кажется этот вопрос вообще должен быть из ФАКа, но я не нашел. Подскажите, как это решается, а то код получается очень громоздким. Заранее спасибо! ... |
|||
:
Нравится:
Не нравится:
|
|||
11.05.2003, 15:02 |
|
Переменная в имени объекта
|
|||
---|---|---|---|
#18+
ну, обзови их все как П и сделай им индексы и будет у тебя не П1, П2, П40...., а П(1), П(2)...П(40) так как ты делаешь в VBA, по-моему, сделать нельзя ... |
|||
:
Нравится:
Не нравится:
|
|||
11.05.2003, 16:33 |
|
Переменная в имени объекта
|
|||
---|---|---|---|
#18+
Вообще-то форум по VB :) ну да ладно. Что-то не припомню, чтобы у текстовых полей было св-во Caption. Если речь идет о метках, то можно, например, так: Private Sub test() Dim lblT As Control For Each lblT In Me.Controls If Left(lblT.Name, 1) = "П" Then lblT.Caption = "Редька" End If Next lblT End Sub В VB можно использовать массивы элементов, что ИМХО удобнее ... |
|||
:
Нравится:
Не нравится:
|
|||
11.05.2003, 19:46 |
|
Переменная в имени объекта
|
|||
---|---|---|---|
#18+
Через Eval, если я не ошибаюсь. Насколько я помню, Eval в VB действует почти также как и в JS. У Вас в тексте допущена ошибка: End With должно стоять, а не End If. Во вторых, русские символы в именах объектов ставить нельзя (насколько я понимаю). Может быть, поможет такое: For i=1 to 40 Eval("P"&i&".Caption=""XPEH""") Next ... |
|||
:
Нравится:
Не нравится:
|
|||
22.05.2003, 16:53 |
|
|
start [/forum/topic.php?fid=60&fpage=414&tid=2171216]: |
0ms |
get settings: |
11ms |
get forum list: |
13ms |
check forum access: |
5ms |
check topic access: |
5ms |
track hit: |
58ms |
get topic data: |
13ms |
get forum data: |
3ms |
get page messages: |
49ms |
get tp. blocked users: |
2ms |
others: | 296ms |
total: | 455ms |
0 / 0 |