如何從WindowsFormsApplicationBase繼承？

我已經繼承了（看看那個，一個雙關語，抱歉...）一套VB.Net應用程序，它們共享共同的功能，目前「複製和粘貼」複製到所有這些應用程序中。我想開始重構過程。附註：我主要是C＃開發人員，不太熟悉VB。如何從WindowsFormsApplicationBase繼承？

所有這些VB應用程序都使用「應用程序框架」。我試圖做的第一件事就是讓它們都從一個通用的應用程序基類繼承。我創建了一個新的類：

Namespace My 
    Public Class ParentApplicationBase 
     Inherits Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase 
     Public Sub Bar() 
     Console.WriteLine("Here we are in Bar()") 
     End Sub 
    End Class 
End Namespace

然後，在ApplicationEvents.vb的，ChildApp.vb和Application.Designer.vb，我改變了

Partial Friend MyApplication

到

Partial Friend MyApplication : Inherits ParentApplicationBase

然而，導致錯誤：

Base class 'ParentApplicationBase' specified for class 'MyApplication' cannot be different from the base class 'Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase' of one of its other partial types.

我有雙倍和三倍檢查，我所有的部分類都確實繼承自ParentApplicationBase。它看起來好像在應用程序框架的魔力中還有其他「隱藏」的地方，它使得它認爲基類是WindowsFormsApplicationBase而不是ParentApplicationBase。

我已經搜索了一般網頁和Stackoverflow都是徒勞的。我發現最近的是這個問題VB.NET - How do you change the namespace/class names for a "Windows application" from the default My.MyApplication?，但這並沒有幫助。

在此先感謝您的任何建議！

來源

2016-02-15 Rob3C

當您在多個部分聲明中劃分類的定義時，編譯器將該類視爲所有部分聲明的聯合。這不僅適用於成員，還適用於實現，繼承和訪問級別。一個類可以實現多個接口，但它不能從多個基類繼承。因此，所有的Inherits語句都必須指定相同的基類。您可以決定哪個類應該是您的部分類的基類，並從其部分聲明中刪除指定不同基類的任何Inherits語句。 – Codexer

要了解更多信息，請參閱** https：//msdn.microsoft.com/en-us/library/8d17t7cd.aspx**。 – Codexer

當您啓用應用程序框架時，VB.NET編譯器會自動生成代碼。其中聲明My.MyApplication類並從WindowsFormsApplicationBase派生它。你看不到這個代碼，它只存在於MSIL中，你不得不使用反編譯器（如ildasm）來查看它。

但是，正如錯誤告訴你，自動生成的My.MyApplication已經固定了基類，你不能再改變它。唯一的辦法是讓禁用的應用程序框架。沒什麼值得擔心的，該類的主要作用是使項目的應用程序屬性選項卡可以正常工作，您可以通過使用代碼來改變它們。

項目>屬性>應用程序選項卡>取消勾選「啓用應用程序框架」複選框。啓動對象>「Sub Main」。添加一個新模塊並使其看起來類似於：

Module Entrypoint 
    Sub Main(args As String()) 
     Application.SetCompatibleTextRenderingDefault(False) 
     Dim app = New MyApplicationFramework() 
     app.Run(args) 
    End Sub 
End Module 

Class MyApplicationFramework 
    Inherits ApplicationServices.WindowsFormsApplicationBase 
    Public Sub New() 
     MyBase.New(ApplicationServices.AuthenticationMode.Windows) 
     Me.EnableVisualStyles = True 
     Me.IsSingleInstance = False 
     Me.SaveMySettingsOnExit = True 
     Me.ShutdownStyle = ApplicationServices.ShutdownMode.AfterMainFormCloses 
    End Sub 
    Protected Overrides Sub OnCreateMainForm() 
     Me.MainForm = New Form1 
    End Sub 
End Class

它使用與「應用程序」選項卡中的默認設置相同的值。根據需要調整。並更改基類。

來源

2016-02-15 13:09:06

謝謝，這正是我所需要的，特別是關於「代碼只存在於MSIL」的解釋。 – Rob3C

如何從WindowsFormsApplicationBase繼承？

回答

相關問題