Многоуровневое наследование в vb.net - PullRequest
1 голос
/ 30 января 2012

Я хочу реализовать многоуровневое наследование в моем приложении Vb.Net. У меня есть базовая форма с именем Base_Level0, которая содержит некоторые методы, свойства и т. Д. Теперь еще одна форма с именем Base_Level1, которая наследует Base_Level0.

Эти 2 формы являются базовыми.

Теперь моя фактическая форма с именем Form1 наследует Base_Level1. Эта форма Form1 содержит событие Load формы, которое не вызывается.

Но если Form1 наследует Base_Level0 напрямую, запускается событие загрузки. Тогда почему доза события загрузки не срабатывает с многоуровневым наследованием.

Эти 3 списка являются пользовательскими элементами управления.

***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

вызов frmCustomersList в форме MDI выглядит следующим образом:

        If (ofrmCustomer Is Nothing) Then
            ofrmCustomer = New frmCustomersList
        End If
        setMDIChild(ofrmCustomer, Me)
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...