如何防止在继承对象时多次执行 NEW() 构造函数中调用的同一个 Sub？ - vb.net

如何解决如何防止在继承对象时多次执行 NEW() 构造函数中调用的同一个 Sub？ - vb.net

首先：我有3个接口，每个接口都有一些类保存所需的程序集和许可证数据，前两个接口由下一个接口实现：ISolution -- > IExtension --> IExportPlugin，它们的对象都是继承自基类-Solution。

ISolution 可以由任何应用程序实现，至少可以提供许可功能。 IExtension 是 IExport、IImport、IService 等的基础 - 我计划了很多衍生品，如果它将是必要的，每种类型的扩展（插件）都需要许可证检查。

每个派生类都会在基类的New()中发起调用LicenseCheck sub，如果没有找到license，会显示frmActivate对话框。

因此，在继承中，它显示 ACTIVATE 三次！！！。 请说，我可以在 IExportPlugin 创建时阻止这个窗口显示，除了最后一次吗？

是的，我可以添加可选参数“OmitLicenseChecking”，但出于安全原因，这不是最好的主意。 每个程序（exe 或 dll）都必须对其进行封装，以免避免检查。例如。检查是必须的，必须隐藏。

谢谢，朋友们。 对不起我的英语））

解决方法

根据提供的信息猜测

Public MustInherit Class Solution
    Public Shared Lock As New Object
    Public Shared Shown As Boolean
    Public DoShow As Boolean

    Public Sub New()
        SyncLock Lock
            If Not Shown Then
                Shown = True
                Me.DoShow = True
            Else
                Me.DoShow = False
            End If
        End SyncLock
    End Sub
End Class

Public Class SolutionA : Inherits Solution
    Public Sub New()
        If Me.DoShow Then
            Stop
        End If
    End Sub
End Class

Public Class SolutionB : Inherits Solution
    Public Sub New()
        If Me.DoShow Then
            Stop
        End If
    End Sub
End Class

Public Class SolutionC : Inherits Solution
    Public Sub New()
        If Me.DoShow Then
            Stop
        End If
    End Sub
End Class

要测试，其中停止代表对话框，

    Dim foo3 As New SolutionC
    Dim foo2 As New SolutionB
    Dim foo1 As New SolutionA