代码之家 › 专栏 › 技术社区 › Achilles

在基类中实现事件

events oop vb.net

Achilles · 技术社区 · 14 年前

考虑以下对象:

Public MustInherit Class FileRepository

    Public MustOverride Sub SaveStringToFile(ByVal FileText As String, ByVal FilePath As String)

    Public Event FileSaved(ByRef sender As Object, ByVal EventArgs As EventArgs)

End Class

Public Class XMLFileRepository
    Inherits FileRepository

    Public Overrides Sub SaveStringToFile(ByVal FileText As String, ByVal FilePath As String)

    End Sub

    Private Sub XMLFileRepository_FileSaved(ByRef sender As Object, ByVal EventArgs As System.EventArgs) Handles Me.FileSaved

    End Sub
End Class

我想让我的基础班提高 FileSaved 事件的实施 SaveStringToFile 一旦它保存了文件。但是在vb.net中,不能让派生类引发基类事件。我想我可以治疗 XMLFileRepository_FileSaved 作为标准函数调用 将字符串保存到文件 实现直接调用它,但我认为我是以错误的方式处理问题。任何帮助都会很好!

1 回复 | 直到 14 年前

Tim Schmelter 14 年前

在基类中添加引发基类filesaved事件的可重写子类:

Public MustInherit Class FileRepository

    Public MustOverride Sub SaveStringToFile(ByVal FileText As String, ByVal FilePath As String)

    Public Event FileSaved(ByVal FileText As String, ByVal FilePath As String)

    Protected Overridable Sub OnFileSaved(ByVal FileText As String, ByVal FilePath As String)
        RaiseEvent FileSaved(FileText, FilePath)
    End Sub

End Class

Public Class XMLFileRepository
    Inherits FileRepository

    Public Overrides Sub SaveStringToFile(ByVal FileText As String, ByVal FilePath As String)
        MyBase.OnFileSaved(FileText, FilePath)
    End Sub

    Private Sub XMLFileRepository_FileSaved(ByVal FileText As String, ByVal FilePath As String) Handles MyBase.FileSaved

    End Sub
End Class

推荐文章

OREO · 如何在不实际单击复选框的情况下选中它

11 月前

Dan · 在元素外部设置html点击处理程序点击后立即触发

1 年前

Testerr0349349 · 如何通过JDA discord提及用户?

1 年前

abra10834 · Publisher Subscriber-订阅主题中的选定消息

1 年前

Ryan Hibbs · 可脚本化对象事件无法在Unity中注册侦听器(记录类型不匹配)

1 年前

Mero · Svelte在父事件调用上调用新的嵌套事件处理程序

1 年前

Enlico · onkeyup和onkeydown在交错按压和释放时发生干扰

1 年前

iorice · usercontrol dll中的组件事件

1 年前

Awin · 点击事件功能不适用于Vue组件

1 年前

Kiwi · 将可共享的自定义数据添加到事件MS图形api

1 年前