Klassen mit Sub New vererben.

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von ViktorS.

    Klassen mit Sub New vererben.

    Hi,

    ich versuche gerade die TcpListener klasse zu vererben, bekomme aber dauerthaft die Fehlermeldung, dass diese Klasse ein Sub New hat. Kann man Klassen mit Sub New nicht vererben oder muss man dabei etwas besonderes beachten?

    Habe es so probiert, kein Erfolg:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Server : Inherits System.Net.Sockets.TcpListener
    2. Sub New(ByVal port As Integer)
    4. End Sub
    5. Sub New(ByVal localaddr As System.Net.IPEndPoint)
    7. End Sub
    8. Sub New(ByVal localaddr As System.Net.IPAddress, ByVal port As Integer)
    10. End Sub
    11. End Class

    Zumindest bringt
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Server
    2. Inherits System.Net.Sockets.TcpListener
    3. Public Sub New(ByVal port As Integer)
    4. MyBase.new(port)
    6. End Sub
    7. Public Sub New(ByVal localaddr As System.Net.IPEndPoint)
    8. MyBase.new(localaddr)
    10. End Sub
    11. Public Sub New(ByVal localaddr As System.Net.IPAddress, ByVal port As Integer)
    12. MyBase.new(localaddr, port)
    14. End Sub
    15. End Class
    17. Public Class MyServer
    18. Inherits Server
    19. Public Sub New(ByVal port As Integer)
    20. MyBase.New(port)
    21. End Sub
    22. End Class

    keine Fehler mehr.
    Die andere Frage ist, dass die Sub New(port) halt veraltet (<obsolete()>) ist, da solltest Du einfach eine neuere Sub verwenden.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende