VPF::Как обратиться к public массиву user-типа из ф.?

Ciber SLasH

Дата 20.5.2013, 09:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1813
Регистрация: 9.11.2004
Где: С.-Петербург

Репутация: нет
Всего: 67

Приветствую всех!
В Module1 в разделе Declarations объявил user-тип и динамический массив этого типа:

Код


Public Type propRecord
    name As String
    value As Variant
End Type
Public props() As propRecord

В этом же модуле есть процедура:

Код


Public Sub addProp(val As Variant, Optional name As String)
Dim index As Integer
    If IsEmpty(props) Then
        index = 1
    Else
        index = UBound(props) + 1
    End If
    ReDim Preserve props(index) As propRecord
    props(index).value = val
    If name & "" <> "" Then
        props(index).name = name
    End If
End Sub

На строке "If IsEmpty(props) Then" компилятор ругается:

Цитата

Only user-defined types defined in public object modules can be coerced to or from a variant or passed to late-bound functions

Что неправильно?

Akina

Дата 20.5.2013, 10:23 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454

Перенесите декларации (и типа, и массива) в отдельный модуль, что ли... но для начала укажите конкретное приложение (и версию), в котором это выполняется.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Ciber SLasH

Дата 20.5.2013, 11:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1813
Регистрация: 9.11.2004
Где: С.-Петербург

Репутация: нет
Всего: 67

Приложение и версия, в котором это выполняется: MS Office 2010 v14.0.4760.1000 (32-разрядная). Создана книга Excel с поддержкой макросов и сохранена с расширением xlsm. На отдельный лист брошена кнопка с обработчиком, в котором и вызывается функция addProp(...). Обработчик кнопки автоматически попадает в Module1.
Перенёс декларации в отдельный модуль Module2 - ничего не изменилось (та же ошибка).

Akina

Дата 20.5.2013, 11:58 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454

Эхх... нет у меня 2010 офиса... ща попробую, как оно в 2003-м.
Да, ещё... val - как бы имя встроенной function было, а name - соответственно statement... проверьте, если так - замените.

--------------------

Akina

Дата 20.5.2013, 12:15 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454

В 2003 то же самое. Причём это не проблема функции, а проблема неявного преобразования аргумента в требуемый тип. Чтобы это увидеть, достаточно вот этого кода в методе:

Код


Dim prp As Variant
prp = props() ' можно и без скобок - результат один

--------------------

Ciber SLasH

Дата 20.5.2013, 12:22 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1813
Регистрация: 9.11.2004
Где: С.-Петербург

Репутация: нет
Всего: 67

Код


Public Sub addProp(v As Variant, Optional n As String)
Dim index As Integer
Dim prp As Variant
    prp = props()
    If IsEmpty(prp) Then
        index = 1
    Else
        index = UBound(prp) + 1
    End If
    ReDim Preserve prp(index) As propRecord
    prp(index).value = v
    If name & "" <> "" Then
        prp(index).name = n
    End If
End Sub

ошибка на строке "prp = props()" c тем же текстом.

Akina

Дата 20.5.2013, 13:47 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454

Так а я о чём... не запихивается этот массив в вариант.

--------------------

dorogoyIV

Дата 25.5.2013, 13:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1503
Регистрация: 26.3.2007

Репутация: 4
Всего: 46

Цитата(Ciber SLasH @ 20.5.2013, 09:51

)

If IsEmpty(props)

а обязательно проверять массив на пустоту? может проверить на длину?

Код


If UBound(props) = 0 Then
 index = UBound(props)
 ReDim Preserve props(index)
 props(index).name = "new name"
 props(index).value = 123
End If

массив props у тебя доступен отовсюду, зачем создавать еще переменную prp, да еще другого типа?

PS: возможны ошибки... не проверял - моделировать прогу самому лень

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »