Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности
|
|
|
Как сделать одно имя для динамически добавленных контроллов в массив
|
|||
|---|---|---|---|
|
#18+
при динамическом добавлении на форму текстовых полей, например, вот таким образом Dim ctlTextBox() As VB.TextBox ReDim ctlTextBox(CountControls) As VB.TextBox For i = 0 To CountControls Set ctlTextBox(i) = Me.Controls.Add("VB.TextBox", "ctlTextBox" & i, frSettings(0)) With ctlTextBox(i) .Visible = True .Enabled = True End With Next i Создаю массив текстовых полей, но каждый элемент в массиве имеет свое имя ctlTextBox0, ctlTextBox1 и т.д. Как сделать одно, чтобы срабатывал для всех контролов один обработчик событий, например, ctlTextBox_Change ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 05.03.2004, 14:30 |
|
||
|
Как сделать одно имя для динамически добавленных контроллов в массив
|
|||
|---|---|---|---|
|
#18+
Нужно создать один элемент (Txt - TextBox) и создать из него массив. Остальные элементы будут добавляться и их свойства будут изменяться через цикл: For i=1 to 10 Load Txt(i) Txt(i).Visible=True Next i По-моему, так!!! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 05.03.2004, 14:54 |
|
||
|
Как сделать одно имя для динамически добавленных контроллов в массив
|
|||
|---|---|---|---|
|
#18+
Спасибо. Сейчас попробую ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 05.03.2004, 15:10 |
|
||
|
Как сделать одно имя для динамически добавленных контроллов в массив
|
|||
|---|---|---|---|
|
#18+
Так не получается Ломается на Load ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 05.03.2004, 16:07 |
|
||
|
Как сделать одно имя для динамически добавленных контроллов в массив
|
|||
|---|---|---|---|
|
#18+
Проблема с Load возникает, когда контрол не выступает в роли массива, у него значение индекса не установлено. Чтобы Load Txt(i) не выдавал ошибок, необходимо, чтобы был создан контрол Txt, после чего его индекс должен приравняться нулю. После этого остальные контролы создаются и их свойства изменяются без проблем. Сейчас, к сожалению, под рукой VB нет, поэтому не могу прислать конкретный пример. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 05.03.2004, 16:43 |
|
||
|
Как сделать одно имя для динамически добавленных контроллов в массив
|
|||
|---|---|---|---|
|
#18+
Создай в форме один контрол. Скопируй его в буфер(Ctrl+C), а потом нажми вставить (Ctrl-V). VB тебя спросит: "Создать массив Да или нет". Ответишь "Да". Удалишь лишний контрол с индексом (1). Потом в коде можешь добавлять и удалять контролы через Load и Unload, кроме контрола с индексом (0) (созданный в Design). Его можно убрать только через свойство Visible. Максим. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 06.03.2004, 10:41 |
|
||
|
|

start [/forum/topic.php?fid=60&fpage=383&tid=2169975]: |
0ms |
get settings: |
5ms |
get forum list: |
12ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
20ms |
get topic data: |
7ms |
get forum data: |
2ms |
get page messages: |
37ms |
get tp. blocked users: |
1ms |
| others: | 239ms |
| total: | 327ms |

| 0 / 0 |
