6

Планирую разделить один большой класс на 5 частей следующей стратегией.

Imports ConsoleApplication1

Module Module1

    Interface IA
        Function AFunc() As Integer
    End Interface

    Class A
        Implements IA

        Public Function AFunc() As Integer Implements IA.AFunc

            Return 1
        End Function

    End Class

    Interface IB
        Function BFunc() As Integer
    End Interface

    Class B
        Implements IB

        Public Function BFunc() As Integer Implements IB.BFunc

            Return 2
        End Function

    End Class


    Class AB
        Implements IA, IB

        Protected _a As New A
        Protected _b As New B

        Protected _somePropertyOne As String = "value1"

        Private _somePropertyTwo As String = "value2"
        Public Property SomePropertyTwo() As String
            Get
                Return _somePropertyTwo
            End Get
            Set(ByVal value As String)
                _somePropertyTwo = value
            End Set
        End Property

        Public Function AFunc() As Integer Implements IA.AFunc
            Return _a.AFunc()
        End Function

        Public Function BFunc() As Integer Implements IB.BFunc
            Return _b.BFunc()
        End Function

    End Class

    Sub Main()

        Dim ab As New AB

        Console.WriteLine(ab.AFunc)
        Console.WriteLine(ab.BFunc)
        Console.ReadLine()

    End Sub

End Module

Возможно это и неправильно, но задача, требует на данном этапе реализовать разделение таким образом, чтобы все методы из набора подклассов, имели доступ к набору общих свойств (в данном случае _somePropertyOne и SomePropertyTwo)

Как это правильнее реализовать?

Куда перенести _somePropertyOne и SomePropertyTwo?

В моем случае идеально подошли Partial Class

10
  • Я VB.NET знаю плохо, но я не вижу иерархии классов, поэтому не понятно, какие подклассы к чему должны получать доступ. Предположение: может. у методов сделать параметр, в который передавать значение свойства? 15 мая 2017 в 19:20
  • все в примере вообще то. вся иерархия классов и т.д. 15 мая 2017 в 19:53
  • Я вижу, что классы реализуют интерфейсы. Но ни один класс не является предком/потомком другого. 15 мая 2017 в 19:55
  • Задача в этом и заключается, изменить иерархию. Так что бы свойства стали доступны. 15 мая 2017 в 19:56
  • если знаете как реализовать это в C#, То я смогу перевести ваш код на VB.NET, есть инструменты. Например Instant VB (Free Edition) 15 мая 2017 в 20:14

1 ответ 1

0
+50

Используй методы-расширения.

Imports System
Imports System.Runtime.CompilerServices

Public Interface ICommon
    Property Value As Integer
End Interface

Public Module IAExts
    <Extension()> 
    Public Function FuncA(ByVal Obj As ICommon) As Integer
        Return 1 + Obj.Value
    End Function
End Module

Public Module IBExts
    <Extension()> 
    Public Function FuncB(ByVal Obj As ICommon) As Integer
        Return 2 + Obj.Value
    End Function
End Module

Public Class Smth
Implements ICommon
    Public Property Value As Integer Implements ICommon.Value
End Class

Public Module Module1
    Public Sub Main()
        Dim X As New Smth() With {.Value = 77}
        Console.WriteLine(x.FuncA())
        Console.WriteLine(x.FuncB())
    End Sub
End Module

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими условиями использования и подтверждаете, что прочитали и поняли наши политику конфиденциальности и нормы поведения.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.