darkmaterial
Goto Top

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

Content-Key: 95814

Url: https://administrator.de/contentid/95814

Ausgedruckt am: 28.03.2024 um 23:03 Uhr

Mitglied: darkmaterial
darkmaterial 02.09.2008 um 12:47:31 Uhr
Goto Top
Helft mir bitte es ist wirklich dringend
mfg
Mitglied: darkmaterial
darkmaterial 04.09.2008 um 00:54:06 Uhr
Goto Top
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.