Обращение к полям пользовательского типа данных через переменную / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Обращение к полям пользовательского типа данных через переменную

9 сообщений из 9, страница 1 из 1

Обращение к полям пользовательского типа данных через переменную

#37506652

Snowblast

Гость

В модуле Excel задан пользовательский тип данных и объявлен массив данного типа.

Type MyType
MyDate As Date
MyQty As Long
MyName As String
End Type

Public TestRec (1 to 10) as MyType

Обращение к полю (например, MyQty) элемента такого массива выглядит как:
TestRec(i).MyQty=100

Вопрос:
Каким образом возможно обратиться к произвольному полю такого массива используя переменную, содержащую имя поля.

В примере ниже выдает ошибку на последней строке - Method or data member not found.

Dim FieldName As String
FieldName="MyQty"
TestRec(i).FieldName=100

...

Рейтинг:

0 / 0

01.11.2011, 12:56

| Ответить | Цитировать | Написать

Обращение к полям пользовательского типа данных через переменную

#37506663

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

сделайте свой класс с нужными вам свойствами

...

Рейтинг:

0 / 0

01.11.2011, 12:59

| Ответить | Цитировать | Написать

Обращение к полям пользовательского типа данных через переменную

#37506743

Snowblast

Гость

Konst_Oneсделайте свой класс с нужными вам свойствами

Спасибо за совет. С этим вопросом пока детально не знаком, буду разбираться.
А помимо использования класса, возможно ли иное решение, м.б. с применением функции CallByName?

...

Рейтинг:

0 / 0

01.11.2011, 13:32

| Ответить | Цитировать | Написать

Обращение к полям пользовательского типа данных через переменную

#37506746

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Совет был наилучшим.

Иные решения породят кучу кода в основном проекте, а зачем? Самое логичное - засунуть весь этот код в черный ящик - класс. Один раз отладить класс и пользоваться им.

...

Рейтинг:

0 / 0

01.11.2011, 13:34

| Ответить | Цитировать | Написать

Обращение к полям пользовательского типа данных через переменную

#37506925

13-й квартал

Гость

SnowblastА помимо использования класса, возможно ли иное решение, м.б. с применением функции CallByName?CallByName как раз и обеспечивает вызов по имени public метода или свойства объекта (экземпляра класса).

...

Рейтинг:

0 / 0

01.11.2011, 14:58

| Ответить | Цитировать | Написать

Обращение к полям пользовательского типа данных через переменную

#37506988

Snowblast

Гость

13-й кварталSnowblastА помимо использования класса, возможно ли иное решение, м.б. с применением функции CallByName?CallByName как раз и обеспечивает вызов по имени public метода или свойства объекта (экземпляра класса).

А не сможете подсказать правильный синтаксис для CallByName применительно к моей ситуации?
Все мои попытки, к сожалению, оказались неудачны.

...

Рейтинг:

0 / 0

01.11.2011, 15:29

| Ответить | Цитировать | Написать

Обращение к полям пользовательского типа данных через переменную

#37507030

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

CallByName применим к объектам и не применим к пользовательским типам. Поэтому либо разбираться с классами либо отказаться от вызова полей по имени.

...

Рейтинг:

0 / 0

01.11.2011, 15:47

| Ответить | Цитировать | Написать

Обращение к полям пользовательского типа данных через переменную

#37507040

13-й квартал

Гость

Snowblast,

Модуль класса MyType:

Код: plaintext

1.
2.
3.
4.

Option Explicit

Public MyDate As Date
Public MyQty As Long
Public MyName As String

Модуль, с тестовой процедурой:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.

Option Explicit

Public TestRec( 1  To  10 ) As MyType

Sub Test()
 Dim i As Long
 For i = LBound(TestRec) To UBound(TestRec)
    Set TestRec(i) = New MyType
    With TestRec(i)
       .MyDate = Now
       .MyName = "TestRec(" & i & ")"
       .MyQty = i *  3 
    End With
 Next i
  
 Dim FieldName As String
 FieldName = "MyQty"
 
 i =  5 
 CallByName TestRec(i), FieldName, VbLet,  100 
 
 Debug.Print TestRec(i).MyQty
End Sub

...

Рейтинг:

0 / 0

01.11.2011, 15:51

| Ответить | Цитировать | Написать

Обращение к полям пользовательского типа данных через переменную

#37509521

Snowblast

Гость

Всем спасибо за помощь. Разобрался.

...

Рейтинг:

0 / 0

02.11.2011, 20:22

| Ответить | Цитировать | Написать

9 сообщений из 9, страница 1 из 1

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=37506663&tid=2158331]:	0ms
get settings:	8ms
get forum list:	12ms
check forum access:	3ms
check topic access:	3ms
track hit:	52ms
get topic data:	13ms
get forum data:	3ms
get page messages:	54ms
get tp. blocked users:	2ms
others:	237ms

total:	387ms