Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Array or user-defined type expected / 5 сообщений из 5, страница 1 из 1
24.05.2012, 08:01
    #37808911
Feanaro
Feanaro
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Array or user-defined type expected
Всем доброго утра.
Сегодня столкнулся со следующей проблемой. Есть процедурка, которая начиная с указанного элемента в массиве увеличивает его и все последующие элементы на указанную величину:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub shiftArray(ByRef shiftingArray() As Integer, row As Integer, col As Integer, shift As Integer)

For j = col To UBound(shiftingArray, 2)
    shiftingArray(row, j) = shiftingArray(row, j) + shift
Next

For i = row + 1 To UBound(shiftingArray, 1)
    For j = 0 To UBound(shiftingArray, 2)
        shiftingArray(i, j) = shiftingArray(i, j) + shift
    Next
Next

End Sub



В другой процедуре имеется массив, сначала объявленный, его размеры были определены в самой процедуре:

Код: vbnet
1.
2.
3.
Dim hBounds() As Integer
...
ReDim hBounds(maxLvl - 1, 2)



В дальнейшем я вызываю свою процедуру:

Код: vbnet
1.
Call shiftArray(hBounds, lvl - 1, 1, 1)



Вот тут компилятор сразу выдает ошибку :"Array or user-defined type expected"
Вот тут мне и непонятно, вроде в процедуре в качестве параметра указан массив Integer, при вызове передаю параметр такого же типа, а ошибка вылетает.

Подскажите, пожалуйста, в чем тут косяк?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.05.2012, 08:41
    #37808942
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Array or user-defined type expected
As Variant параметр процедуры поставь
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.05.2012, 13:42
    #37809695
13-й квартал
13-й квартал
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Array or user-defined type expected
Feanaro,

косяк где-то за пределами написанного, потому что по синтаксису всё верно. Поставьте в модулях Option Explicit, опишите явно переменные, и попробуйте откомпилировать (Debug -> Compile имя проекта VBA).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.05.2012, 13:53
    #37809722
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Array or user-defined type expected
13-й кварталпотому что по синтаксису всё вернода, проверка показала, что не ругается:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Sub Command1_Click()

Dim k() As Integer
Call r(k)
ReDim k(5, 5)
Call r(k)

End Sub
Sub r(ByRef w() As Integer)

End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.05.2012, 07:21
    #37810837
Feanaro
Feanaro
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Array or user-defined type expected
Шокер, спасибо, в качестве типа принимаемого параметра выставитл Variant, теперь работает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Array or user-defined type expected / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 259ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2157763]:
 0ms
get settings:
 11ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 160ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 41ms
get tp. blocked users:
 2ms
others: 14ms
total:  259ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]