Per Menu auf ein Funktion oder einen Button zugreifen

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Schamash.

    Per Menu auf ein Funktion oder einen Button zugreifen

    Hallo zusammen ich bin es mal wieder.

    Ich habe da ein Problem.

    Ich habe eine Form mit einem Menu soweit so gut.
    Auf der Form befindet sich ein TabControl.
    Über das Menu werden nun auf dem TabControl Formen angezeigt. :thumbup:

    VB.NET-Quellcode

    1. NeueForm = New Form
    2. NeueForm.TopLevel = False
    3. NeueForm.Dock = DockStyle.Fill
    5. m_ChildFormNumber += 1
    7. tcMitarbeiterInformationen.TabPages.Add(NeueForm.Text)
    8. tcMitarbeiterInformationen.SelectedTab = tcMitarbeiterInformationen.TabPages(m_ChildFormNumber - 1)
    9. NeueForm.Parent = tcMitarbeiterInformationen.TabPages(m_ChildFormNumber - 1)
    10. NeueForm.Show()


    Das war soweit ja noch alles ganz einfach.
    Jetzt kommt mein Problem. Ich hoffe das ist auch ganz einfach.

    Auf jeder neuen Unterform werden verschiedene Informationen bereitgehalten.

    Im Menu soll es nun eine Schaltfläche geben mit der ich die Aktuell angezeigt Form "aktualisiere".
    Mit Aktualisieren ist eine Funktion gemeint die zur Zeit noch auf jeder Form über einen Button gestartet wird.

    Diese Funktion Aktualisiert die auf der Form angezeigten Informationen.
    versucht habe ich das jetzt erst mal so.

    VB.NET-Quellcode

    1. Private Sub btnHauptmenuTabAktuallisieren_Click(sender As System.Object, e As System.EventArgs) Handles btnHauptmenuTabAktuallisieren.Click
    2. For Each btn As Button In tcMitarbeiterInformationen.SelectedTab.Controls
    3. If btn.Name = "btnAktualisieren" Then
    4. btn.PerformClick()
    5. End If
    6. Next
    7. End Sub


    Das funktioniert aber nicht weil das .selectedTab.Control nur die Form als Treffer hat.
    Meine Frage ist jetzt wie kann ich auf den Button Aktualisieren oder besser noch direkt auf die Funktion der Unterform zugreifen.

    Ich hoffe ich habe mich einiger maßen verständlich ausgedrückt. :thumbsup:
    Ansonsten erkläre ich mich gerne nochmal anders :wacko:
    There is no CLOUD - just other people's computers

    Q: Why do JAVA developers wear glasses?
    A: Because they can't C#

    Daily prayer:
    "Dear Lord, grand me the strength not to kill any stupid people today and please grant me the ability to punch them in the face over standard TCP/IP."

    Hat sich erledigt.
    Ich hab es einfach so gelöst:

    VB.NET-Quellcode

    1. For Each ctrl In tcMitarbeiterInformationen.SelectedTab.Controls(0).Controls
    2. If (ctrl.GetType() Is GetType(Button)) Then
    3. Dim btn As Button = CType(ctrl, Button)
    4. If btn.Name = "btnAktualisieren" Then
    5. btn.PerformClick()
    6. End If
    8. End If
    9. Next
    There is no CLOUD - just other people's computers

    Q: Why do JAVA developers wear glasses?
    A: Because they can't C#

    Daily prayer:
    "Dear Lord, grand me the strength not to kill any stupid people today and please grant me the ability to punch them in the face over standard TCP/IP."

Facebook
Telefonspende