Vererben von Stream mit neuen Dateinamen

Question

Ich mag Code schreiben, der wie folgt aussieht:

Public Class LogFile 
    Inherits StreamWriter 

    Private LogsDirectory As String = Application.StartupPath & "\" & "logs\" 

    Public Sub New(shortName As String)    
     Dim fullFilePath As String = LogsDirectory & shortName & "_" & Format(Now, "HHmmss") & ".log"  
     MyBase.New(fullFilePath) 
    End Sub 

End Class 

aber ich bin, dies zu tun gezwungen (weil die erste Anweisung von Sub New zu einem Basiskonstruktor sein muss):

Public Class LogFile 
    Inherits StreamWriter  

    Public Sub New(shortName As String)    
     MyBase.New(Application.StartupPath & "\" & "logs\" & shortName & "_" & Format(Now, "HHmmss") & ".log") 
    End Sub 

End Class 

Gibt es einen Weg "um" dies? In diesem Fall ist es in Ordnung, aber ich würde vielleicht gerne mehr Verarbeitung machen, die nicht auf eine einzige Zeile passen würde.

Answer 1

können Sie erreichen, was Sie eine Funktion wollen mit so lange, wie es ist Shared (LogsDirectory auch Shared sein müssen)

Folgende compiliert:

Public Class LogFile 
    Inherits StreamWriter 

    Public Sub New(shortName As String) 
     MyBase.New(InitFunction(shortName)) 
    End Sub 

    Private Shared LogsDirectory As String = Application.StartupPath & "\" & "logs\" 

    Private Shared Function InitFunction(shortname As String) As String 
     Dim fullFilePath = LogsDirectory & shortname & "_" & Format(Now, "HHmmss") & ".log" 
     Return fullFilePath 
    End Function 
End Class