 Не могу понять почему выкидывается исключение. Вроде все правильно.
 Не могу понять почему выкидывается исключение. Вроде все правильно.
Переопределяю класс TcpClient:
- Код: Выделить всё
- Public Class MyTcpClient
 Inherits TcpClient
 Public Shadows ReadOnly Property Active() As Boolean
 Get
 Return MyBase.Active
 End Get
 End Property
 End Class
Где то в глубине кода...
- Код: Выделить всё
- Private TcpServer as TcpListener
 Private tClient as TcpClient
 Private Client As MyTcpClient
 tClient = TcpServer.AcceptTcpClient
 'приведение ссылки базового класса к типу производного класса
 'Здесь и происходит исключение InvalidCastException
 Client = CType(tClient, MyTcpClient)





