vb.net中的多级继承

时间:2012-01-30 05:57:35

标签: vb.net inheritance

我想在我的Vb.Net应用程序中实现多级继承。 我有一个名为Base_Level0的基本表单,其中包含一些方法,属性等。 现在还有一个名为Base_Level1的表单,它继承了Base_Level0。

这两种形式是基本形式。

现在我名为Form1的实际表单继承了Base_Level1。 此Form1包含一个未触发的表单Load事件。

但是如果Form1直接继承Base_Level0,则会触发load事件。 那么为什么加载事件不会触发多级继承。

这3个列表是UserControls。

***Base List Level0

Public Class frmNewBaseList_Level0
'
'
Private Sub frmNewBaseList_Level0_Load(sender As Object, e As System.EventArgs) Handles Me.Load

    End Sub
'
'
End Class

***Base List Level1

Public Class frmNewBaseList_Level1
    Inherits frmNewBaseList_Level0
'
'
Private Sub frmNewBaseList_Level1_Load(sender As Object, e As System.EventArgs) Handles Me.Load

    End Sub
'
'
End Class

***Actual List 

Public Class frmCustomersList
    Inherits frmNewBaseList_Level1
'
'
Private Sub frmCustomersList_Load(sender As Object, e As System.EventArgs) Handles Me.Load

End Sub
'
'
End Class

The code from where i add these list to my main form is given below:

  Public Sub setMDIChild(ByVal sMDIChild As UserControl, ByVal sMDIParent As Form)

            sMDIChild.Parent = sMDIParent
            sMDIChild.Dock = DockStyle.Fill
            sMDIChild.Show()
            sMDIChild.BringToFront()
            EnableSearch = True
 End Sub
MDI表单中的

frmCustomersList调用如下:

        If (ofrmCustomer Is Nothing) Then
            ofrmCustomer = New frmCustomersList
        End If
        setMDIChild(ofrmCustomer, Me)

0 个答案:

没有答案