Обработка текстовых полей

[Mouse]

Привет всем!

У меня в форме 20 текстовых полей, как мне быстро перебрать все поля формы и найти не пустые?

[Gigahard]

Первое Сделай массив контролов
Второе Сделай цикл

Код: Выделить всё

Dim i as integer
Dim result as String
result=""

For i=1 to 20

if len(txtBox(i).text)<>0 then ' Это для заполненых, =0 для пустых
result=result & txtBox(i).name
end if

next i

MsgBox result

[Mouse]

А как сделать массив контролов?

если я задаю в имени поля TextBox(1) - то ругается на имя текстового поля

[Amed]

Пиши имя контрола TextBox, а индекс задаётся в другом параметре - index

[Firestorm]

http://www.azbukavb.narod.ru/teorie/ArraysA.html

[RayShade]

Не надо массивов!



Делаем так:



For each ctl in form.controls

if typeof ctl is textbox then result = result & iif(len(ctl.text)>0,ctl.name,"")

next ctl



И все дела.

[Emzari]

Создать массив из елементов управления очен просто с помощю копирования.

1) Создай один текст бокс
2) Потом выдели его и скопируи (Edit->Copy)
3) Потом ставиш (Edit->Paste)
При этом должен появится диалоговое окно в котором беисик спрашивает не хочем ли ми создать массив контроллов. Здес надо нажать на кнопке Yes.

повторяеш 3-й шаг столко раз сколко нужно. Получаеш массив.