Перейти к содержимому

Фотография

Подскажите как...


  • Авторизуйтесь для ответа в теме
Сообщений в теме: 3

#1 nazarov

nazarov

    Новый участник

  • Members
  • Pip
  • 24 сообщений
  • ФИО:CB-1

Отправлено 03 ноября 2006 - 10:38

У меня на форме около 20ти компонентов. Я описал тип-структуру, содержащую текст в этих компонентах. Потом создал процедуру, получающую эти данные последовательно проходя по всем компонентам.
Type TLg
Jf As Variant
..
End Type
Sub GetData(Lg As TLg)
....
здесь я получаю данные SQAGetProperty() и заношу их в структуру Lg
....
End Sub

Sub Main
Dim V As TLg
GetData(V) вызывает ошибку Illegal use of TYPE var in expression

Подскажите, пожалуйста, как правильно это сделать, чтобы работало. Пробовал функцией, но там тоже не получалось. Ошибка была типа конвертирования структурного типа в вариантный. :-(
  • 0

#2 Tiana

Tiana

    Активный участник

  • Members
  • PipPip
  • 81 сообщений
  • ФИО:Girnyk S. Tatyana
  • Город:Украина, Харьков

Отправлено 03 ноября 2006 - 11:24

попробуйте изменить main процедуру вот так:
Sub Main
Dim V As TLg
Call GetData(V)
End Sub

  • 0

#3 nazarov

nazarov

    Новый участник

  • Members
  • Pip
  • 24 сообщений
  • ФИО:CB-1

Отправлено 03 ноября 2006 - 12:39

Спасибо! Работает! :good:
  • 0

#4 Tiana

Tiana

    Активный участник

  • Members
  • PipPip
  • 81 сообщений
  • ФИО:Girnyk S. Tatyana
  • Город:Украина, Харьков

Отправлено 03 ноября 2006 - 12:55

Кстати, это не единственный возможный вызов процедуры содержащей аргументы. Посмотрите "Call Statement" в хелпе.
  • 0


Количество пользователей, читающих эту тему: 0

0 пользователей, 0 гостей, 0 анонимных