Как передать в процедуру значения массива?

[sergey-911]

Доброго времени суток, уважаемые. Прошу прощения за ламерский вопрос. Нужно передать в процедуру "FindRow" значения массива. В приведенном ниже скрипте - выдается ругательное сообщение об ошибке. Как правильно передать значение массива в процедуру? Спасибо всем.

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

Dim ID() As Long
ReDim Preserve ID(0)
ID(0) = 1

ReDim Preserve ID(1)
ID(0) = 5

...
...
ReDim Preserve ID(n)
ID(n) = 3

Private Sub FindRow(ID() As Long)
...
...
End Sub


[SHURUP]

А вот это не смотрел?
http://bbs.vbstreets.ru/viewtopic.php?t=562

[GSerg]

Ну и где именно выдаётся ругательное сообщение об ошибке?

[Viper]

1. что за сообщение об ошибке?
2. а как собственно вызывается FindRow?

[sergey-911]

Спасибо за помощь всем. Но вопрос остается открытым.
SHURUP, решения проблемы, пойдя по указанной тобою ссылки, я не нашел.
Дома VB сейчас нет (hdd маздай), а на работе - нет инета. Поэтому по памяти...
Сообщение об ошибки выдается, при запуске процедуры. Запускаю - не правильно. Ошибка типа данных передаваемого в процедуру аргумента. Точно сказать смогу только завтра вечером, после работы.
Передать пытался так:

FindRow (ID())
FindRow (ID)
FindRow ({1, 3, 456, 362})

Но это от отчаяния. Как правильно - не знаю.
Читал MSDN. Описывался способ копирования массива. Что-то наподобие "CopyToArray". Но не получается. Временно вышел из ситуации таким образом:
Объявил массив через Public, работаю с реальными значениями массива. Но хочу разобраться, уже не первый раз встречается необхоимость в этом.
Подскажите плиз.

[GSerg]

Неправильно и первое, и второе и третье, и "но в процедуре ты должен так же обьявить его как массив" тоже неправильно.

Правильно FindRow ID.

[Vi]

Правильно - FindRow ID.

Все правильные способы для Sub FindRow(val() As Long)

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

Dim ID() As Long
...
FindRow ID
FindRow ID()
Call FindRow(ID)
Call FindRow(ID())

Взятие переменной в скобки означает вычисление выражения, которое для массива не может быть выполнено. Т.е. такие варианты не верны:

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

FindRow (ID)
FindRow (ID())
Call FindRow((ID))
Call FindRow((ID()))

[alibek]

И как ты собираешься узнать, правильно ли выполнилась процедура?

[sergey-911]

Всем доброго времени суток. Огромное спасибо за помощь.
Разобрался.

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

Call FindRow (ID)

Этот вариант - работает, равно, как будет работать

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

Call FindRow ID

А процедуру - я заменил на функцию, которая возвращает массив.

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

Private FindRow(ID() As Long) As Variant
...
...
IDznach = ID  'Присваиваем функции значение массива
End Function


Call ID = IDznach(ID)


Прикол в том, что если функцию объявить явным способом

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

Private FindRow(ID() As Long) As Long

, а не

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

Private FindRow(ID() As Long) As Variant


, то выдается, соответственно, ошибка. Никто не скажет, как функцию объявить явным способом? Т.е. указать, что функция вернет массив, типа "Long".

[Viper]

а такой вариант

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

Private Function FindRow(ID() As Long) As Long()

не пробовал?

вроде это в VB работает (в VB.NET точно работает)

[Александр Дмитриев]

Вообще, я подобные вещи делаю не так: я объявляю пользовательский тип, в который пихаю переменный массив и процедурам передаю уже переменную этого пользовательского типа; так удобнее и глюков у меня с такой темой никогда не было:

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

Private Type MyGreatType
ID() As Long
End Type

Dim IDs As MyGreatType
ReDim Preserve MyGreatType.ID(0)
MyGreatType.ID(0) = 1

ReDim Preserve MyGreatType.ID(1)
MyGreatType.ID(1) = 5
...
...
ReDim Preserve MyGreatType.ID(n)
MyGreatType.ID(n) = 35

Private Sub FindRow(IDs As MyGreatType)
...
...
End Sub

[sergey-911]

!Viper!
Спасибо, попробую. Но проверить смогу не раньше понедельника. Дома с кампутером беда. Два харда наелись. Ща места под ВБ нет.
Александр Дмитриев
А зачем мне объявлять пользовательский тип. SHURUP мне прислал интересную ссылку, по этому поводу, в этом же топике, выше. http://bbs.vbstreets.ru/viewtopic.php?t=562 Посмотри, иногда бывают проблемы. Да и зачем в программе лишний код, который будет - лишь занимать ресурсы машины? Пользовательский тип используется, на мой взгляд, для других целей.

[Александр Дмитриев]

sergey-911 Про ссылку http://bbs.vbstreets.ru/viewtopic.php?t=562 - у меня не переменный массив пользовательских переменных, а пользовательская переменная с переменным массивом: в натуре говорю всегда так пашет и удобно к тому же.

[sergey-911]

2 Александр Дмитриев, да ладно, если тебе так удобней...
Меня интересовало вот что:

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

Private Function FindRow(ID() As Long) As Long()

(объявление функции)
и

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

ID = FindRow(ID)

(вызов)