Скрыть родительский класс в библиотеке

[Roman Koff]

В библиотеке классов есть класс _BaseDataClass на базе которого создается класс IntegerClass:

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

Public Class _BaseDataClass
   Private _Value As String = ""
   Overridable Property Value() As Object
      Get
         Return Me._Value
      End Get
      Set(ByVal value As Object)
         Me._Value = value
      End Set
   End Property
End Class
Public Class IntegerClass : Inherits _BaseDataClass
   Public Overrides Property Value() As Object
      Get
         Return CType(MyBase.Value, Integer)
      End Get
      Set(ByVal value As Object)
         MyBase.Value = value
      End Set
   End Property
End Class

Можно ли какнить скрыть класс _BaseDataClass , чтобы он не светился для пользователя библиотеки классов?

[Nord777]

Friend ?

[Roman Koff]

Когда родительский класс объявляется как Friend он становится невидим для других классов библиотеки

[Nord777]

Сделай у своих классов один Namespace.

[Sebas]

Когда родительский класс объявляется как Friend он становится невидим для других классов библиотеки

неправда

[Sebas]

Friend ?

как Ты себе это представляешь? френдом можно только New пометить, а не класс.

[Roman Koff]

неправда

Ну не нивидимым, а не наследуемым. Проблема не снята ...

Сделай у своих классов один Namespace.

Я так и понял ...

[Williams]

неправда

Ну не нивидимым, а не наследуемым. Проблема не снята ...

Сделай у своих классов один Namespace.

Я так и понял ...

Например

Namespace MyControl
...
End Namespace

Говорят о том, что для обоих классов следует прописать одно пространство имен.

[Sebas]

неправда

Ну не нивидимым, а не наследуемым. Проблема не снята ...

В таком случае, делать базовый класс нет смысла. Зачем?

Сделай конструктор Friend, тебе же сказали.

[Atoman]

Ненаследуемый Класс

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

Public NotInheritable Class Class1
    '...
End Class

[Sebas]

Ненаследуемый Класс

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

Public NotInheritable Class Class1
    '...
End Class

2Atoman: Читаем пост внимательно. Классы в сборке должны наследовать объект.

В библиотеке классов есть класс _BaseDataClass на базе которого создается класс IntegerClass:

[Roman Koff]

С friend не прокатывает ни в каком случае.
С наймспейсами вариант реальный, но не элегантный. Вероятно остановлюсь на нем

[Sebas]

С friend не прокатывает ни в каком случае.

ай ли?

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

Public Class Class1
    Friend Sub New()

    End Sub
End Class

Public Class Class2
    Inherits Class1

    Public Sub New()

    End Sub
End Class

[Roman Koff]

ай ли?

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

[Sebas]

ай ли?

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

Риторический вопрос: А зачем данный функционал делать как класс? Ответь и всё встанет на свои места)

[Roman Koff]

Допишу, выложу пример на обсуждение по поводу оптимизации. В двух словах не сказать...

[Williams]

Я думаю что вы, друзья, ушли в дебри ООП