Tabcontrol Buttons in den Tabs Code hinzufügen?

Hallo ich möchte meinen button (neuerbutto) welcher in jedem neu erzeugtem tab erzeugt wird mit einem sourcecode belegen
mein code sieht jetzt so aus:

Public Class Form1

    Public i As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim NeuesTab As New TabControl
        Dim NeuerButto As New Button
        Dim Hallo As New Button
        'Tab der Form hinzufügen  

        'TabPage dem Tab hinzufügen  
        TabControl1.TabPages.Add("Test")  
        i = i + 1

        'Button in erstes TabPage des Tabs einfügen  
        TabControl1.TabPages(i).Controls.Add(NeuerButto)

        NeuerButto.Text = "Test"  


    End Sub



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        i = -1
    End Sub
End Class

Ich möchte jetz aber auf die generierten buttons ähnlich wie mit

Private Sub Neuerbotto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Neuerbutto.Click
.
.
.
Hier kommt code 
.
.
.
end sub

Zugriff haben allerdings kommt dann dieser fehler

Fehler	1	Die Handles-Klausel erfordert eine WithEvents-Variable, die im enthaltenden Typ oder einem seiner Basistypen definiert wird.	C:\Users\Daniel\Desktop\Darkfire\Darkfire\Form1.vb	24	102	Darkfire

Danke für eure Hilfe

mfg
Darkmtaterial

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 95814

Url: https://administrator.de/forum/tabcontrol-buttons-in-den-tabs-code-hinzufuegen-95814.html

Ausgedruckt am: 22.12.2024 um 08:12 Uhr

2 Kommentare

Neuester Kommentar

Helft mir bitte es ist wirklich dringend
mfg

So obwohl es hier eh keinen interessieren zu scheint, ich hab eine lösung

Public Class Form1

    Inherits System.Windows.Forms.Form
    Private btnArray(50) As Button

    Public i As Integer
    Public butary As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If butary < 50 Then

            Dim NeuesTab As New TabControl

            'Tab der Form hinzufügen  

            'TabPage dem Tab hinzufügen  
            TabControl1.TabPages.Add("Test")  
            i = i + 1
            butary = butary + 1
            btnArray(i) = New Button
            'Button in erstes TabPage des Tabs einfügen  
            TabControl1.TabPages(i).Controls.Add(btnArray(butary))
            btnArray(butary).Text = butary
            With btnArray(butary)

                AddHandler .Click, AddressOf btnArray_Click

            End With
        Else
            MsgBox("Maximale Anzahl an Fächern erreicht ")  
        End If

    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        i = -1
        butary = -1
    End Sub

    Private Sub btnArray_Click(ByVal sender As Object, _
            ByVal e As System.EventArgs)
        ' Click-Ereignis des Button-Arrays auswerten  
        Dim itemClicked As Button = CType(sender, Button)
        Dim index As Integer = -1I

        ' Das betroffene Element im Array suchen (allgemein);  
        ' Möglich wäre etwa auch das Vorgehen über die eigens  
        ' zugewiesene Name-Eigenschaft des Buttons.  
        For i As Integer = LBound(btnArray) To UBound(btnArray)
            If btnArray(i) Is itemClicked Then
                index = i
                Exit For
            End If
        Next

        If index >= 0 Then ' Element im Array gefunden (sonst index = -1)  
            ' Kurze Informations-MessageBox für das Codebeispiel  
            MessageBox.Show("Sie haben den Button Nr. " & CStr(index) & " angeklickt", _  
                "Index des Buttons ermittelt", _  
                MessageBoxButtons.OK, _
                MessageBoxIcon.Information)
        End If

    End Sub

End Class

Ich hoffe ich kann jemand anderem damit helfen.