Передача переменной на базе собственного типа

@diklang · Регистрация: 13.03.2007

Студворк — интернет-сервис помощи студентам

Подскажите плиз
1. Создал несколько своих типов (описывают структуру таблиц БД - поэтому имеют разные элементы), т.е
type a
aa as string*5
end type
type b
bb as string*10
end type

2. создал для каждого типа переменную
dim var1 as a
dim var2 as b

3.теперь хочу создать функцию и передавать туда эти переменные
function func (var2 as ???) - вот тут и вопрос
чтобы вызов был вида
status = func(var1)
status = func(var1)

Подскажите можно ли реализовать такую конструкцию в VBA (Excel 97)

@Arto · 15.04.2007, 21:31

Посмотри ответ на форуме сайта www.azbukavb.narod.ru

@diklang · 16.04.2007, 07:48 **[ТС]**

Спасибо за ссылку. Очень много интересного...
Но, увы - ответа не нашел.. :-(

Если не затруднит - нельзя ли более подробно ответить..

@diklang · 16.04.2007, 17:33 **[ТС]**

Подправлю себя - ошибся в вопросе :-)
3.теперь хочу создать функцию и передавать туда эти переменные
function func (var3 as ???) - вот тут и вопрос
чтобы вызов был вида
status = func(var1)
status = func(var2) !!!!

вариант вида function func (var3 as variant) - не прошел :-(

16.04.2007, 22:39

В VB нельзя передавать в аргументы типа Variant пользовательский тип данных.
Так что используй другой способ, ну например, создай аргументы в функции для каждого типа.

@diklang · 17.04.2007, 06:54 **[ТС]**

Спасибо - это и хотелось бы узнать...
В delphi или сях это возможно без проблем :-(

@diklang · 17.04.2007, 19:31 **[ТС]**

И все же я пока не отступился :-)
Подсказали попробовать через collection - но и тут не все понятно...
вышло так
type a
aa as string*5
end type
type b
bb as string*10
end type

dim col as As New Collection

dim var1 as a
dim var2 as b
но тут началось не очень понятно - пытаюсь в коллекцию добавить переменные, так
col.add(var1)
col.add(var2)
- ругается 'Несоответствие типа ByRef' на первой же строке
Но если в колекцию добавлять сами типы, так:
col.add(a)
col.add(b) - то проходит

Ну дальше передаю коллекцию col в функцию - передает, не ругается...
Но вот вопрос - а как создать потом переменную на базе нужного типа в коллекции???

Подскажите люди!!!

18.04.2007, 11:40

Нельзя в колекцию положить переменные с пользовательским типом данных.

Странно, что у тебя проходит второй вариант, должна была просто быть ошибка на стадии компиляции: Variable not define? , а хотя нет скорее всего у тебя разрешено неявное объявление переменных в модуле (не стоит Option Explicit) и когда ты вызываешь f(a), то система считает, что a это новая переменная типа variant (имена типов и переменных находятся в разных пространствах имен, т.е. ты можешь в принципе описать переменную dim a as a, поэтому не возниквает при этом конфликт имен).

Если ты все таки хочешь идти таким путем, то создай место двух тивов два разных класса с нужными свойствами.
Потом объявляй экземпляры этих классов и тогда ты их сможешь положить в коллекцию, а коллекцию посылать в функцию, а хотя тогда и коллекция не нужна, делаешь так:

Dim var1 As New Class1, var2 As New Class2

Function f(v As Object)
f=Len(v.s)
End Function

И тогда пройдет и f(var1) и f(var2)

Успехов!

18.04.2007, 11:41

Нельзя в колекцию положить переменные с пользовательским типом данных.

Странно, что у тебя проходит второй вариант, должна была просто быть ошибка на стадии компиляции: Variable not define? , а хотя нет скорее всего у тебя разрешено неявное объявление переменных в модуле (не стоит Option Explicit) и когда ты вызываешь f(a), то система считает, что a это новая переменная типа variant (имена типов и переменных находятся в разных пространствах имен, т.е. ты можешь в принципе описать переменную dim a as a, поэтому не возниквает при этом конфликт имен).

Если ты все таки хочешь идти таким путем, то создай место двух тивов два разных класса с нужными свойствами.
Потом объявляй экземпляры этих классов и тогда ты их сможешь положить в коллекцию, а коллекцию посылать в функцию, а хотя тогда и коллекция не нужна, делаешь так:

Dim var1 As New Class1, var2 As New Class2

Function f(v As Object)
f=Len(v.s)
End Function

И тогда пройдет и f(var1) и f(var2)

Успехов!

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

@diklang 0 / 0 / 0 Регистрация: 13.03.2007 Сообщений: 28

	Передача переменной на базе собственного типа 15.04.2007, 17:29. Показов 1142. Ответов 8 Метки нет (Все метки) Подскажите плиз 1. Создал несколько своих типов (описывают структуру таблиц БД - поэтому имеют разные элементы), т.е type a aa as string5 end type type b bb as string10 end type 2. создал для каждого типа переменную dim var1 as a dim var2 as b 3.теперь хочу создать функцию и передавать туда эти переменные function func (var2 as ???) - вот тут и вопрос чтобы вызов был вида status = func(var1) status = func(var1) Подскажите можно ли реализовать такую конструкцию в VBA (Excel 97) 0

@Arto 0 / 0 / 0 Регистрация: 05.04.2007 Сообщений: 55
	15.04.2007, 21:31
	Посмотри ответ на форуме сайта www.azbukavb.narod.ru 0

@diklang 0 / 0 / 0 Регистрация: 13.03.2007 Сообщений: 28
	16.04.2007, 07:48 [ТС]
	Спасибо за ссылку. Очень много интересного... Но, увы - ответа не нашел.. :-( Если не затруднит - нельзя ли более подробно ответить.. 0

@diklang 0 / 0 / 0 Регистрация: 13.03.2007 Сообщений: 28
	16.04.2007, 17:33 [ТС]
	Подправлю себя - ошибся в вопросе :-) 3.теперь хочу создать функцию и передавать туда эти переменные function func (var3 as ???) - вот тут и вопрос чтобы вызов был вида status = func(var1) status = func(var2) !!!! вариант вида function func (var3 as variant) - не прошел :-( 0

Mavr
	16.04.2007, 22:39
	В VB нельзя передавать в аргументы типа Variant пользовательский тип данных. Так что используй другой способ, ну например, создай аргументы в функции для каждого типа.

@diklang 0 / 0 / 0 Регистрация: 13.03.2007 Сообщений: 28
	17.04.2007, 06:54 [ТС]
	Спасибо - это и хотелось бы узнать... В delphi или сях это возможно без проблем :-( 0

@diklang 0 / 0 / 0 Регистрация: 13.03.2007 Сообщений: 28
	17.04.2007, 19:31 [ТС]
	И все же я пока не отступился :-) Подсказали попробовать через collection - но и тут не все понятно... вышло так type a aa as string5 end type type b bb as string10 end type dim col as As New Collection dim var1 as a dim var2 as b но тут началось не очень понятно - пытаюсь в коллекцию добавить переменные, так col.add(var1) col.add(var2) - ругается 'Несоответствие типа ByRef' на первой же строке Но если в колекцию добавлять сами типы, так: col.add(a) col.add(b) - то проходит Ну дальше передаю коллекцию col в функцию - передает, не ругается... Но вот вопрос - а как создать потом переменную на базе нужного типа в коллекции??? Подскажите люди!!! 0

Mavr
	18.04.2007, 11:40
	Нельзя в колекцию положить переменные с пользовательским типом данных. Странно, что у тебя проходит второй вариант, должна была просто быть ошибка на стадии компиляции: Variable not define? , а хотя нет скорее всего у тебя разрешено неявное объявление переменных в модуле (не стоит Option Explicit) и когда ты вызываешь f(a), то система считает, что a это новая переменная типа variant (имена типов и переменных находятся в разных пространствах имен, т.е. ты можешь в принципе описать переменную dim a as a, поэтому не возниквает при этом конфликт имен). Если ты все таки хочешь идти таким путем, то создай место двух тивов два разных класса с нужными свойствами. Потом объявляй экземпляры этих классов и тогда ты их сможешь положить в коллекцию, а коллекцию посылать в функцию, а хотя тогда и коллекция не нужна, делаешь так: Dim var1 As New Class1, var2 As New Class2 Function f(v As Object) f=Len(v.s) End Function И тогда пройдет и f(var1) и f(var2) Успехов!

Mavr
	18.04.2007, 11:41
	Нельзя в колекцию положить переменные с пользовательским типом данных. Странно, что у тебя проходит второй вариант, должна была просто быть ошибка на стадии компиляции: Variable not define? , а хотя нет скорее всего у тебя разрешено неявное объявление переменных в модуле (не стоит Option Explicit) и когда ты вызываешь f(a), то система считает, что a это новая переменная типа variant (имена типов и переменных находятся в разных пространствах имен, т.е. ты можешь в принципе описать переменную dim a as a, поэтому не возниквает при этом конфликт имен). Если ты все таки хочешь идти таким путем, то создай место двух тивов два разных класса с нужными свойствами. Потом объявляй экземпляры этих классов и тогда ты их сможешь положить в коллекцию, а коллекцию посылать в функцию, а хотя тогда и коллекция не нужна, делаешь так: Dim var1 As New Class1, var2 As New Class2 Function f(v As Object) f=Len(v.s) End Function И тогда пройдет и f(var1) и f(var2) Успехов!