从抽象类 FileSystemInfo 继承不会为所有 FileInfo 成员产生值，仅对某些成员产生值

Question

我创建了一个类CFileInfo，它继承自抽象FileSystemInfo 类。我的构造函数将一个新的FileInfo 对象分配给一个类范围的变量。

必须覆盖 3 个成员（Name、Exists、Delete）。

但是，其他成员未在基类中声明 Overridable，例如 CreationTime。但是由于抽象类无论如何都不包含对象，所以我应该能够简单地重载这个属性，还是我在这里弄错了？我这样做了，也为了只读的Name 属性。

Public Class CFileInfo
    Inherits FileSystemInfo

    Private goFile As FileInfo

    Public Sub New(ByVal sFileName As String)
        goFile = New FileInfo(sFileName)
    End Sub

    Public Overrides ReadOnly Property Exists As Boolean    'Mustoverride member.
        Get
            Return goFile.Exists
        End Get
    End Property

    Public Overrides ReadOnly Property Name As String       'Mustoverride member.
        Get
            Return goFile.Name
        End Get
    End Property

    Public Overrides Sub Delete()                           'Mustoverride member.
        goFile.Delete()
    End Sub

    Public Overloads ReadOnly Property FullName As String   'Works as intended.
        Get
            Return goFile.FullName
        End Get
    End Property

    Public Overloads Property CreationTime As Date
        Get                                                 'Does not work. Why?
            Return goFile.CreationTime
        End Get
        Set(oValue As Date)
            goFile.CreationTime = oValue
        End Set
    End Property
End Class

一个类CMultiFile继承自上面的CFileInfo。在其中，我基于FileInfo 对象创建了一个物理文件。 （生成的FileStream 会一直保留到Finalize 处理它。）

Public Class CMultiFile
    Inherits CFileInfo

    Private goMultiFileStream As FileStream

    Public Sub New(ByVal sFileName As String)
        MyBase.New(sFileName)
        goMultiFileStream = MyBase.Create()
    End Sub

    Protected Overrides Sub Finalize()
        MyBase.Finalize()
        goMultiFileStream.Dispose()
    End Sub
End Class

使用CMultiFile 的类（在我的例子中是一个Win Form）创建了一个CMultiFile 的实例，它确实按预期创建了文件。

FileInfo 对象现在应该提供有关与其关联的文件的信息，正确。只是它并不适用于所有成员。

Public Class FMain
    Private goMultiFile As CMultiFile

    Private Sub cButton_Click(sender As Object, e As EventArgs) Handles cButton.Click
        Dim sMultiFileName As String = "Test.mfw"
        goMultiFile = New CMultiFile(sMultiFileName)

        MsgBox(goMultiFile.FullName & " created at " &
            goMultiFile.CreationTime.ToString)
    End Sub
End Class

为什么（重载的）FullName 属性会产生有效的完整路径值，而（也重载的）CreationTime 属性不会？ （它包含#1/1/1601 01:00:00 AM#）

在返回属性 FullName 和 CreationTime 时在 CFileInfo 中设置两个 Stop 会显示，输入 FullName 并因此返回正确的值，而 CreationTime 甚至没有输入 .

是什么导致了这种行为？如何访问我的CFileInfo 类的所有成员？

Answer 1

重载在这两种情况下都是错误的，即FullName 和CreationTime。 FullName 是可覆盖的，因此应将其声明为 Overrides。您不必覆盖它，但您可以这样做。至于CreationTime，应该声明为Shadows。 Shadows 的行为与 Overrides 非常相似，不同之处在于，如果您将类的实例强制转换为其基本类型，您将获得基本实现。如果您覆盖一个成员，即使您转换为基类型，您也会获得派生的实现。