Windowsform и uercontrol, реализуя в них изменения.

---

Привет,

Я программирую приложение windows form, у меня возникли проблемы с реализацией кода для моих пользовательских элементов управления,

допустим, все мои формы наследуются от моего базового класса, и в моем базовом классе у меня есть код ниже,

Public Class BaseForm
    Inherits System.Windows.Forms.Form

    Protected Overrides Sub OnVisibleChanged(e As System.EventArgs)
        MyBase.OnVisibleChanged(e)

        If Me.Visible Then ' create Handler to each Button when Form is shown (becomes visible)
            For Each myControl As Control In Me.Controls
                If myControl.GetType Is GetType(Button) Then
                    AddHandler myControl.Click, AddressOf TestModul.ClickHandler
                End If
            Next
        Else ' remove Handler from each Button when Form is left (becomes unvisible)
            For Each myControl As Control In Me.Controls
                If myControl.GetType Is GetType(Button) Then
                    RemoveHandler myControl.Click, AddressOf TestModul.ClickHandler
                End If
            Next
        End If

    End Sub
End Class

Тестовый модуль выглядит следующим образом:

Module TestModul
    Public Sub ClickHandler(sender As Object, e As System.EventArgs)

        Dim mySender As Control = sender
        MessageBox.Show(mySender.Name + vbCrLf + mySender.Parent.Name)
        If (mySender.Parent.GetType().ToString().Contains("UserControl")) Then
            MessageBox.Show("Its a user control")
        End If

    End Sub
End Module

До сих пор все работает правильно, но проблема заключается в реализации кода для моих usercontrols, которые все наследуются от моего baseusercontrol, который написан ниже:

Public Class BaseUserControl
    Inherits System.Windows.Forms.UserControl

   Protected Overrides Sub OnVisibleChanged(e As System.EventArgs)
        MyBase.OnVisibleChanged(e)

        If Me.Visible Then ' create Handler to each Button when Form is shown (becomes visible)
            For Each myControl As Control In Me.Controls
                If myControl.GetType Is GetType(Button) Then
                    AddHandler myControl.Click, AddressOf TestModul.ClickHandler
                End If
            Next
        Else ' remove Handler from each Button when Form is left (becomes unvisible)
            For Each myControl As Control In Me.Controls
                If myControl.GetType Is GetType(Button) Then
                    RemoveHandler myControl.Click, AddressOf TestModul.ClickHandler
                End If
            Next
        End If

    End Sub

End Class

эта процедура должна выполняться следующим образом: каждый раз, когда нажимается кнопка, она должна показывать мне окно сообщений и отображать имя этой кнопки и форму, содержащую эту кнопку.

Что я уже пробовал:

как прослеживается он не входит в это состояние,

If myControl.GetType Is GetType(Button) Then

и видите это как ложное условие. Я удалил оператор If и снова увидел, что он не читает строку кода

AddHandler myControl.Click, AddressOf TestModul.ClickHandler

так что опять же изменение не будет сделано на кнопках.

Well in on of my forms it's working, because I opened it and manually removed the line of inheritence after the name of those classes, I just removed the line ' Inherits baseusercontrol' and rewrote it. then it worked.

Но я не должен делать это для всех других классов. Каков будет автоматизированный путь к этому?


Заранее благодарю вас за вашу помощь.

---