Héritant StreamWriter avec le nouveau nom de fichier

Question

Je veux écrire un code qui ressemble à ceci:

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 

Cependant, je suis obligé de le faire (parce que la première déclaration de Sub New doit être à un constructeur de base):

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 

Y at-il un moyen de contourner ce problème? Dans ce cas, c'est correct, mais je pourrais très bien faire plus de traitement qui ne correspondrait pas à une seule ligne.

Answer 1

Vous pouvez obtenir ce que vous voulez à l'aide d'une fonction aussi longtemps qu'il est Shared (LogsDirectory faudra aussi être Shared)

Les compiles suivantes:

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