代码之家 › 专栏 › 技术社区 › 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

推荐文章

Karl · 如何引发PrintPage的事件?

2 年前

Daniel · LINQ从列表的dataTable中提取部分匹配

3 年前

limelatte · 如何在datagridview中屏蔽特定列?

3 年前

Orsi · 选择嵌套列表的最大值和最小值。网

3 年前

D T · 如何为Excel Com设置公式?

3 年前

Lenin · 将数组中的每个元素与另一个数组中的相应元素相乘

3 年前

Christian Balabat · 从今天的日期所在的ms access数据库获取数据很热

3 年前

Jack · gridview到textbox的事件与vb中textbox的结果不匹配。网

3 年前

Bryan Max · Vb。如果车主的数据没有停车,5分钟后,网络Mysql错误停车

3 年前

Myronaz · 如何在WinForms VB中设置WebView2用户数据文件夹。网络应用?

3 年前