Создать вложенную структуру с модификатором доступа Private

@Евгений_Пермь · Регистрация: 24.09.2015

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

Всем доброго времени суток!

Столкнулся с проблемкой следующего характера:
Создаём две структуры (одна в другой)

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
Public Class Mashine
 
    Public Structure TheMashine
      
       Public Structure Test
           Dim Manufacturer As Integer
           Dim Model As Integer
       End Structure
 
       Dim Test1 As Test
    End Structure
End Class

Имеем в результате при объявлении структуры "TheMashine":

VB.NET
1
2
3
Dim Test2 As TheMashine
Test2.Test1.Manufacturer = 1 
Test2.Test1.Model = 2

Тут всё замечательно, но как закрыть доступ ко вложенной структуре "Test" чтобы её нельзя было объявить вне структуры "TheMashine"?

VB.NET
1
2
Dim Test2 As TheMashine
Dim Test3 As TheMashine.Test ' В данном случае требуется закрыть доступ к объявлению через "TheMashine.Test"

Т.е. чтобы доступ к структуре "Test" остался только через экземпляр "Test1".
Если объявить как Private хоть на уровне класса хоть на уровне структуры то компилятор начинает ругаться.

@Sklifosofsky · 15.10.2019, 22:18

Сообщение от Евгений_Пермь

компилятор начинает ругаться

Правильно делает. Скрыть вложенную структуру, в вашем случае невозможно, т.к. открытое поле Test1 имеет тип этой структуры. Поля Manufacturer и Model принадлежат структуре Test, а не полю Test1, если вы скроете Test, то и все поля должны быть скрыты и не выходить дальше одного уровня родительской структуры TheMashine

Решить можно так.
Скрыть структуру Test и поле Test1
Добавить свойства в структуру

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
TheMashine
    Public Structure TheMashine
 
        Private Structure Test
            Public Manufacturer As Integer
            Public Model As Integer
        End Structure
 
        Private Test1 As Test
 
        Public Property Manufacturer As Integer
            Get
                Return Test1.Manufacturer
            End Get
            Set(value As Integer)
                Test1.Manufacturer = value
            End Set
        End Property
 
        Public Property Model As Integer
            Get
                Return Test1.Model
            End Get
            Set(value As Integer)
                Test1.Model = value
            End Set
        End Property
    End Structure

@Евгений_Пермь · 15.10.2019, 22:27 **[ТС]**

Сообщение от Sklifosofsky

Скрыть структуру Test и поле Test1
Добавить свойства в структуру

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

SoftIce · 15.10.2019, 22:33

Сообщение от Евгений_Пермь

способ через свойства я знаю

А просто так ?

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
Public Class Mashine
 
    Public Structure Test
        Dim Manufacturer As Integer
        Dim Model As Integer
    End Structure
 
    Public Structure TheMashine
        Dim Test1 As Test
    End Structure
 
End Class

@Евгений_Пермь · 15.10.2019, 22:39 **[ТС]**

Сообщение от SoftIce

А просто так ?

С этим тоже проблем нет, но задумка была такая, что в первой структуре содержится несколько структур с несколькими полями. Оно всё работает, но когда список будет большим, то куча ненужной информации в виде структур будет мешать.
И тут получается, что обе структуры так же доступны на уровне класса.

@Sklifosofsky · 15.10.2019, 22:46

Сообщение от Евгений_Пермь

куча ненужной информации в виде структур будет мешать

Она и так будет "мешать". Я так понял, вам не нравится что все это в подсказках(Intellisense) вылезает? Используйте контрукции Namespace и складируйте второстепенный классы и структуры

@Евгений_Пермь · 15.10.2019, 22:50 **[ТС]**

Сообщение от Sklifosofsky

Используйте конструкции Namespace и складируйте второстепенный классы и структуры

Да, как вариант.
Благодарю за ответы!

@Замабувараев · 16.10.2019, 12:50

Сообщение от Евгений_Пермь

Создаём две структуры (одна в другой)

Зачем?
Сделайте так:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
Public Class Mashine
 
   Public Structure Test
       Dim Manufacturer As Integer
       Dim Model As Integer
   End Structure
 
    Public Structure TheMashine
       Dim Test1 As Test
    End Structure
    
End Class

Сообщение от Евгений_Пермь

доступ к структуре "Test" остался только через экземпляр "Test1"

Экземпляры не могут закрывать доступ к декларации самих себя.

@Евгений_Пермь · 16.10.2019, 19:17 **[ТС]**

Сообщение от Замабувараев

Сделайте так

Можно и так, но разницы особой нет. Обе структуры будут доступны через экземпляр класса.

@Замабувараев · 19.10.2019, 14:58

Тогда не объявляйте их в классе, объявите в отдельном модуле.

Новые блоги и статьи Все статьи Все блоги /
10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .

@Замабувараев COM‐пропагандист 936 / 785 / 149 Регистрация: 18.12.2014 Сообщений: 2,256 Записей в блоге: 4
	19.10.2019, 14:58
	Тогда не объявляйте их в классе, объявите в отдельном модуле. 0

Создать вложенную структуру с модификатором доступа Private

Решение