2
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:
Ich möchte jetz aber auf die generierten buttons ähnlich wie mit
Zugriff haben allerdings kommt dann dieser fehler
Danke für eure Hilfe
mfg
Darkmtaterial
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 ClassPrivate Sub Neuerbotto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Neuerbutto.Click
.
.
.
Hier kommt code
.
.
.
end subFehler 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 DarkfireDanke für eure Hilfe
mfg
Darkmtaterial
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 95814
Url: https://administrator.de/contentid/95814
Printed on: April 25, 2024 at 12:04 o'clock
2 Comments
Latest comment
Helft mir bitte es ist wirklich dringend
mfg
mfg
So obwohl es hier eh keinen interessieren zu scheint, ich hab eine lösung
Ich hoffe ich kann jemand anderem damit helfen.
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
