Два вопроса

[Faust]

Есть два вопроса.

1) Как передать функции в качестве аргументов свойства .Text массива элементов управления TextBox?
2) Где можно найти информацию о структуре файлов AVI? Дело в том, что программа не успевает воспроизводить анимацию даже на самых быстрых из доступных мне машин - слишком много времени занимает её просчитывание.

Заранее благодарен.

[RayShade]

1. У массива контролов нет собственных пропертей. Вопрос вообще малопонятен.

2. В MSDN можно почитать про API, которым это все воспроизводится. Ковырять формат вручную будет, кстати, очень медленно (из ВБ).



А в чем проблема "непросчета" анимации?

[XPraptor]

По пункту 2: При воспроизведении AVI через mcistring там есть флаг воспроизведения синхронно асинхронно. При синхронном воспроизведении прога не продолжит выполнения пока не закончит воспроизводить файл.
По пункту 1: Объявляешь массив как текст Dim strArr(0 To ...) As String
присваиваешь ему свойства текст всех боксов и передаешь массив в качестве аргумента функции. Call StatArray(strArr())
Если нужно чтобы функция тоже вернула массив то:
Объявляешь массив как тип функции для получения в него результата
Dim txtArr() as String
txtArr() = StatArray(strArr())

Function StatArray(DtArray() As String) As String()
Dim Rezult(1 to 2) As String 'Тип совпадает с типом Функции
Dim i As Integer
Dim Str1 As String
Dim Str2 As String
...
For i = Lbound(DtArray()) To Ubound(DtArray())
Str1 = Str1 & DtArray(i)
Str2 = Str2 & DtArray(i)
Next i
Rezult(1) = Str1
Rezult(2) = Str2
...
...
StatArray = Rezult()
End Function

[SSecurity]

Прочитав твои слова, можно неоднозначно расщенить вопрос №1.
рассмотрим на примере массива элем-в Text1(0) - Text1(4)
Вариант 1.
необходима функция
Private Function INFO(ArrayTEXT as String) as String
где у тебя ArrayTEXT - это значение .TEXT очередного элемента
тогда проще всего сделать так
For I=0 to Text1.Count-1
AA=INFO(Text1(i))
Next I
ну и конечно сама функция
Private Function INFO(ArrayTEXT as String) as String
...
End Function


Вариант 2.
тебе нужна функция
Private Function INFO(Text1(0), Text1(1), Text1(2), Text1(3),Text1(4)) as String
см. пункт 1, поскольку так делать не рационально.

[Faust]

Каюсь в нечеткой формулировке вопросов и прошу простить неопытного посетителя форума.
Уточнение к вопросу 1: на форме есть массив TextBox'ов, значения .Text неравноправны в качестве аргументов. При этом хотелось бы передать функции массив этих значений не захламляя память объявлением ещё одного массива строковых переменных. Т.е. требуется передать функции массив Text1().Text
Уточнение к вопросу 2: программа моделирует физический процесс и создает серию изображений. Вопрос следует понимать так: нельзя ли склеить их в одну кучу (AVI-файл), которую можно было бы просмотреть потом, в свободное от расчетов время?