Структура, включающая несколько других структур

[Drag]

Приветствую всех. Такой вопрос - есть ли создавать модульные структуры?
Допустим, есть у нас структуры

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

Structure Devices
     Dim DevInd() as Short
End Structure
Structure Cargo
     Dim CargInd() as Short
     Sub CargoLoad
     ...
     End Sub
End Structure
Structure SpaceObject
     Dim Pos as Point
End Structure

Так вот, есть ли возможность встроить все переменные и функции структур Devices и Cargo напрямую в структуру SpaceObject так, как будто они изначально находятся в ней, без подклассов?
Я попробовал использовать Inherits (поменяв структуры на классы), но в VB.Net в одной структуре позволяется наследование только от одного класса.

[Admiralisimys]

Drag, а что если объявить экземпляры структур Devices и Cargo в структуре SpaceObject?

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

Imports System
Imports System.Drawing

Structure Devices
    Public DevInd() As Short
End Structure
Structure Cargo
    Public CargInd() As Short
    Public Sub CargoLoad()
        Console.WriteLine("Structure Cargo -> CargoLoad() Called")
    End Sub
End Structure
Structure SpaceObject
    Public pos As Point
    Public dev As Devices
    Public carg As Cargo
End Structure

Class Test
    <STAThread()> Shared Sub Main()
        Dim so As New SpaceObject()
        so.carg.CargoLoad()
    End Sub
End Class

[Drag]

Да, я пока так и стараюсь делать, но боюсь, что такой подход будет создавать слишком длинные строки.

Кстати, а для чего в этом примере <STAThread()>?

[Admiralisimys]

Drag если строгость наследования не принципиальна, можно отнаследовать (вернув снова структуры на классы), Cargo от Devices, а SpaceObject уже от Cargo

Если компилировать в .NET 2.0 и выше эта строчка рекомендуется к применению.
http://www.gotdotnet.ru/forums/2/14073/66747/
http://blogs.msdn.com/b/jfoscoding/arch ... 06341.aspx

Методу Main непосредственно предшествует метод attribute, состоящий из слова STAThread в квадратных скобках. Он указывает исполняющей среде .NET запускать программу в отделенном потоке, что обеспечить корректное ее взаимодействие с СОМ (подробнее см. документацию к STAThreadAttribute в пространстве имен System). Странно, но работающие с буфером обмена программы Windows Forms без этого атрибута часто работают неустойчиво.
Программирование с использованием MS WindowsForms, 2006

[Drag]

Хорошая идея, но, к сожалению, не получится, так как у части объектов эти компоненты нужны, а у части - нет. Ну ладно, постараюсь реализовать через добавление объектных переменных. Спасибо за помощь .
Хм, интересно.. Постараюсь изучить, хотя на моей памяти без этого атрибута проблем пока не было.

[Qwertiy]

Вложенные Private-переменные с нужными структурами + Properties и функции.

[Drag]

Оу, точно, я про Properties забыл. Спасибо!

И вот еще вдогонку просьба проверить, оптимально ли я распланировал структуру программы. Решил я объединить два класса (космические корабли и станции), имеющие много общего (но и заметные различия), в один clsUnit. В clsUnit будет несколько структур, каждая из которых будет содержать отдельный независимый функционал. В классе будут объявлены объектные переменные для каждой из этих структур:
Public Dev as DeviceType
Public Prod as ProductionType
Public Dck as DockingType
(причем внутри каждой структуры будут массивы... либо коллекции, и связанные с ними функции)

У меня будет общий массив элементов класса clsUnit.
Но для одних элементов класса clsUnit будет инициализирована лишь структура Dev (Prod и Dck = Nothing), а для других - Prod и Dck (Dev = Nothing). Оптимально ли такое решение?

[Qwertiy]

Но для одних элементов класса clsUnit будет инициализирована лишь структура Dev (Prod и Dck = Nothing), а для других - Prod и Dck (Dev = Nothing).

Структура не может иметь значение Nothing (насколько я помню, VB позволяет его присваивать, но это интерпретируется иначе). Только класс.

Оптимально ли такое решение?

Нет. Вынеси всё общее в базовый класс, который скорее всего следует сделать абстрактным (MustInherit), от которого сделай двух наследников, расширяющих его так, как требуется. При необходимости используй виртуальные свойства и функции (MustOverride/Overridable/Overrides). Храни всё в массиве, объявленном как массив элементов базового класса.

PS: Ты знаешь различия между структурой и классом?

[Drag]

Структура не может иметь значение Nothing (насколько я помню, VB позволяет его присваивать, но это интерпретируется иначе). Только класс.

Да, точно, попутал . Имелись в виду именно классы.

Нет. Вынеси всё общее в базовый класс, который скорее всего следует сделать абстрактным (MustInherit), от которого сделай двух наследников, расширяющих его так, как требуется. При необходимости используй виртуальные свойства и функции (MustOverride/Overridable/Overrides). Храни всё в массиве, объявленном как массив элементов базового класса.

Вот уж до чего я бы точно не додумался... Большое спасибо! Наконец-то понял, как делается наследование .
Тогда, думаю, в базовый класс все же стоит включить несколько подклассов дополнительного функционала, которые для каждого элемента будут инициализироваться лишь при необходимости

PS: Ты знаешь различия между структурой и классом?

Да, разумеется. Структура - набор свойств и методов, а класс - полноценный объект с поддержкой событий, конструкторов и наследования.

[Qwertiy]

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

Сформулировано настолько туманно, что я не знаю, правильно это или нет. В базовом классе должно быть только то, что есть (или может быть) у обоих.

PS: Ты знаешь различия между структурой и классом?

Да, разумеется. Структура - набор свойств и методов, а класс - полноценный объект с поддержкой событий, конструкторов и наследования.

Судя по этому ответу - всё-таки нет. Основное различие - это то, что структура - это value-тип, а класс - reference-тип, со всеми вытекающими отсюда последствиями.
А то что ты написал, вообще кажется сомнительным. Конструкторы в структуре быть могут, но только с параметрами. И объявить событие тоже можно, хотя у меня никогда раньше не возникало необходимости их там использовать. К тому же, утверждать, что структура неполноценна, как-то неправильно. Для своих целей она вполне подходит.

[Drag]

Сформулировано настолько туманно, что я не знаю, правильно это или нет. В базовом классе должно быть только то, что есть (или может быть) у обоих.

Поясню на примере. Допустим, у базового класса clsUnit есть такой "плагин"(буду так называть эти подклассы, расширяющие функциональность)
Public Weapon as TypeUnitWeapon
Возьмем теперь для примера космический корабль Unit(1). Изначально, Unit(1).Weapon = Nothing, но если на корабль устанавливается оружие, то он получает возможность стрелять, и, следовательно, выполняется Unit(1).Weapon = New TypeUnitWeapon. В случае, если оружие снимается, этот плагин можно уничтожить.

Ну да, неудачно выразился. Под "полноценным объектом" я имел в виду reference-тип.

[Qwertiy]

Поясню на примере

Опять туманно
Если оружие может быть как у корабля, так и у станции, то всё верно. Если станция не может обладать этим оружием, то оно должно быть вынесено в класс корабля. Если одно поле выделено для различных типов оружия, частью из которых может обладать корабль, а частью станция, то (на мой взгляд) вынесение в базовый класс логично.
Про Nothing и New всё правильно.

[Drag]

Еще раз спасибо за помощь

[Qwertiy]

Не за что