Hallo,
ich bin ganz frisch hier im Forum und hoffe, einer (oder mehrere) von euch können mir bei meinem Problem helfen.
Ich programmiere mit Visual Studio 2010 gerade eine Art Haushaltsbuch (kein Mdi), bei dem verschiedene by CouponDropDown">Profile angelegt werden können usw.
Jetzt ist es so, dass ich im Formular "Neues Profil anlegen" ein
TabControl mit 3 TabPages habe. In zweien von denen sind bereits
Steuerelemente (Textboxen, NumericUpDown, DropDownList, Checkbox etc.)
angelegt. Bei Klick auf den Button "Neue Ausgabe hinzufügen" sollen
diese Controls dynamisch sozusagen dupliziert werden, einfach
ausgedrückt soll eine neue Zeile (bestehend aus diesen Controls)
erstellt werden. An sich klappt das auch, mein Problem ist allerdings,
dass die bisher erstellten (dynamischen) Zeilen bei wiederholtem Klick
auf den Button verschwinden und lediglich die ursprünglich eingerichtete
Zeile und die soeben erstellte Zeile im Tab sichtbar sind (wobei die
dynamisch erstellte Zeile auch wie gewünscht nach unten wandert). Wie
kann ich dafür sorgen, dass die bereits erstellten Zeilen sowohl
sichtbar als auch zugreifbar sind? Hab bereits intensiv gegoogelt aber
bin nicht wirklich schlauer geworden
So erstelle ich die Controls:
Vielen Dank schonmal für hoffentlich hilfreiche Antworten und / oder Anregungen!!
ich bin ganz frisch hier im Forum und hoffe, einer (oder mehrere) von euch können mir bei meinem Problem helfen.
Ich programmiere mit Visual Studio 2010 gerade eine Art Haushaltsbuch (kein Mdi), bei dem verschiedene by CouponDropDown">Profile angelegt werden können usw.
Jetzt ist es so, dass ich im Formular "Neues Profil anlegen" ein
TabControl mit 3 TabPages habe. In zweien von denen sind bereits
Steuerelemente (Textboxen, NumericUpDown, DropDownList, Checkbox etc.)
angelegt. Bei Klick auf den Button "Neue Ausgabe hinzufügen" sollen
diese Controls dynamisch sozusagen dupliziert werden, einfach
ausgedrückt soll eine neue Zeile (bestehend aus diesen Controls)
erstellt werden. An sich klappt das auch, mein Problem ist allerdings,
dass die bisher erstellten (dynamischen) Zeilen bei wiederholtem Klick
auf den Button verschwinden und lediglich die ursprünglich eingerichtete
Zeile und die soeben erstellte Zeile im Tab sichtbar sind (wobei die
dynamisch erstellte Zeile auch wie gewünscht nach unten wandert). Wie
kann ich dafür sorgen, dass die bereits erstellten Zeilen sowohl
sichtbar als auch zugreifbar sind? Hab bereits intensiv gegoogelt aber
bin nicht wirklich schlauer geworden
So erstelle ich die Controls:
VB.NET-Quellcode
- Private Sub btnAusgabeDazu_Click(sender As System.Object, e As System.EventArgs) Handles btnAusgabeDazu.Click
- Dim BezeichnungA As New TextBox
- Dim AbbuchungA As New NumericUpDown
- Dim GutschriftA As New NumericUpDown
- Dim BetragA As New TextBox
- Dim IntervallA As New ComboBox
- Dim AuswahlA As New CheckBox
- Dim LabelA As New Label
- Dim ZählerNameA As Byte = 0
- Dim AbstandNeuA As Integer = 0
- Dim y = 28
- ZählerNameA += 1
- AbstandNeuA += 25
- With BezeichnungA
- .Name = "txtBezeichnungA" & ZählerNameA.ToString
- .Text = .Name
- .Height = 20
- .Width = 417
- .Top = y + AbstandNeuA
- .Left = 9
- End With
- With AbbuchungA
- .Text = .Value
- .Name = "nudAbbuchung" & ZählerNameA.ToString
- .Height = 20
- .Width = 120
- .Top = y + AbstandNeuA
- .Left = 432
- .Minimum = 1
- .Maximum = 31
- .Increment = 1
- .Value = 1
- .TextAlign = HorizontalAlignment.Right
- End With
- With BetragA
- .Text = "0,00"
- .Name = "txtBetragA" & ZählerNameA.ToString
- .Height = 20
- .Width = 100
- .Top = y + AbstandNeuA
- .Left = 564
- .TextAlign = HorizontalAlignment.Right
- End With
- With IntervallA
- .Text = ""
- .Name = "cboIntervallA" & ZählerNameA.ToString
- .Height = 20
- .Width = 145
- .Top = y + AbstandNeuA
- .Left = 710
- .Items.Add(Me.cboIntervallA.Items)
- End With
- With AuswahlA
- .Name = "ckbAuswahlA" & ZählerNameA.ToString
- .Height = 14
- .Width = 15
- .Top = IntervallA.Top + 3
- .Left = 858
- End With
- With LabelA
- .Text = "€"
- .Name = "LabelA" & ZählerNameA.ToString
- .Height = 13
- .Width = 14
- .Top = AuswahlA.Top
- .Left = 673
- .BackColor = Color.Transparent
- End With
- tabDaten.TabPages("tabAusgaben").Controls.Add(BezeichnungA)
- tabDaten.TabPages("tabAusgaben").Controls.Add(AbbuchungA)
- tabDaten.TabPages("tabAusgaben").Controls.Add(BetragA)
- tabDaten.TabPages("tabAusgaben").Controls.Add(LabelA)
- tabDaten.TabPages("tabAusgaben").Controls.Add(IntervallA)
- tabDaten.TabPages("tabAusgaben").Controls.Add(AuswahlA)
- End Sub
Vielen Dank schonmal für hoffentlich hilfreiche Antworten und / oder Anregungen!!