проблема с типами и параметрами функций

[dorido]

имеется модуль, в котором объявлен глобальный тип(например public type XTYPE)
имеется класс, в котором определена функция вида public function Fn( x as XTYPE) as integer
собственно компилятор ругается на параметр функции, сообщая что-то вроде, только паблик типы определённые пользователем в паблик модулях могут использоваться в качестве параметров паблик функций класса.
вопрос в том, в каком месте, объявляя тип, я потерял паблик(если потерял) и как заставить функцию скушать такой параметр?

[alibek]

Обманываешь.

Only public user defined types defined in public object modules can be used as parameters or return types for public procedures of class modules or as fields of public user defined types

[trash]

Обманываешь.

В каком месте? Он все четко описал и сразу понятно, где налажал.

dorido, объявляй тип в классе.

[dorido]

хмм.
объявляем тип в модуле класса. если объявлять как public, то вб говорит, что нельзя паблик типы объявлять в приват модуле. если объявляем тип как private, то - нельзя использовать приват типы для параметров.

alibek, модуль аля module1.bas не является паблик модулем?)

[karlex]

модуль аля module1.bas не является паблик модулем?)

Он не является паблик обжект модулем.

[Хакер]

Не является. Можешь объявить типы в TLB. Без всякий модулей, потому что типы являются самостоятельной сущностью, такой же как модуль или класс с точки зрения TLB.

[dorido]

тогда остаётся актуальной задача заставить класс скушать структуры ^-^
есть ли способ более простой, чем не заморачиваться на структуре и передавать всё по отдельности?

[Хакер]

А помоему задача не остаётся актуальной. Способы решения были предложены.

[Денис]

тогда остаётся актуальной задача заставить класс скушать структуры ^-^
есть ли способ более простой, чем не заморачиваться на структуре и передавать всё по отдельности?

Вы еще "плаваете" в ООП, как я некогда. Смотрите:

Это структура в ФП:

Код: Выделить всё

Dim S1 as MY_TYPE 'ваша паблик-структура из функционального модуля
Dim S2 as MY_TYPE

S1.Param1 = 1
S1.Opt1 = 100

S2 = S1 'ваша передача структуры

А вот это класс в ООП:

Код: Выделить всё

Dim С1 as MY_CLASS 'класс из объектного модуля класса
Dim С2 as MY_CLASS

Set C1 = new MY_CLASS

C1.Param1 = 1
С1.Opt1 = 100

Set С2 = С1 ' передача класса

Есть разница? Есть. Но она минимальна. Строка с оператором Set для создания экземпляра класса и им же присвоение классов. Зато все сработает. Вот код класса, если интересно:

Код: Выделить всё

public Param1 as integer
public Opt1 as Bute

например, или так (это уже в классбилдере погенерено)

Код: Выделить всё

Private mvarParam1 As Integer 'local copy
Private mvarOpt1 As Byte 'local copy

Public Property Let Opt1(ByVal vData As Byte)
    mvarOpt1 = vData
End Property


Public Property Get Opt1() As Byte
    Opt1 = mvarOpt1
End Property



Public Property Let Param1(ByVal vData As Integer)
    mvarParam1 = vData
End Property


Public Property Get Param1() As Integer
    Param1 = mvarParam1
End Property

Отличия: в первом варианте паблик-переменные, во втором свойства (property) класса, через которые идет обращение к приват-переменным. удобство свойств в том, что одновременно с присвоением можно выполнить еще кучу действий (конвертаций там и т.п.)

[alibek]

Есть разница? Есть. Но она минимальна.

Разница огромна.
Попробуй использовать класс RECT вместо структуры RECT.

[Денис]

Разница огромна.

Я имел ввиду синтаксическую разницу. Она минимальна: Имя.Параметр = Что-то и всё.
Логическая же разница да, огромна. Другой уровень, как говорил Эйнштейн.