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

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

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