Hinzufügen von doppelten TapPages verhindern

MichaHo · 15. Oktober 2016, 09:37

Hi,
ich füge zur Laufzeit meinem leeren Tabcontrol neue Tappages hinzu, dazu habe ich folgenden Code:

VB.NET-Quellcode

'Code von @'ErfinderDesRades', abgewandelt von UserControl auf RichtextBox
<Extension()>
Public Sub AddRTBControls(tc As TabControl, tn As TreeNode, ParamArray rtbs() As RichTextBox)
tc.SuspendLayout()
For i = 1 To rtbs.Length
Dim rtb = rtbs(i - 1)
Dim txt = If(TryCast(tn.Tag, String), "Untitled-" & i)
Dim tp = New TabPage With {.Text = txt}
tp.Controls.Add(rtb)
tc.TabPages.Add(tp)
tc.SelectTab(tp.TabIndex)
Next
tc.ResumeLayout()
If Not tc.Visible Then tc.Visible = True
End Sub

jetzt versuche ich, das keine Tappage doppelt hinzugefügt wird.
Mein Problem ist, das ich im Moment nicht sehe, wie ich verhindern kann, das die gleiche Tappage noch einmal hinzugefügt wird.
Ich erstelle beim Laden der Form ein TreeView mit Einträgen aus einem Dataset. (Main TabelleName ist der Root Node, Einträge der Main Tabelle(Bezeichnung) ist der Node und Child Einträge(Info) der Main Tabelle sind die Subnode)
Klicke ich auf einen Subnode, soll eine neue TP hinzugefügt werden.

VB.NET-Quellcode

Private Sub tvMain_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles tvMain.AfterSelect
Dim rtb As New RichTextBox With
{.Dock = DockStyle.Fill,
.BackColor = Color.DimGray,
.ForeColor = Color.WhiteSmoke,
.Text = Dts.Snippet.GetSnippetText(e.Node.Text),
.BorderStyle = BorderStyle.None,
.Font = New Font("Segeo UI", 10)}
tcSnippet.AddRTBControls(e.Node, rtb)
End Sub

ich hab mehrere Varianten versucht, komme leider nicht dahinter

VB.NET-Quellcode

'versucht
If tc.TabPages.IndexOf(tp) > 1 Then tc.TabPages.Remove(tp)
'versucht
If tc.TabPages.ContainsKey(tp.Text) Then tc.TabPages.Remove(tp)

Hat jemand nen Tip für mich?
2. Frage:
Wie kann ich im der AfterSelect Event verhindern, das auch bei Klick auf den Node der Code ausgeführt wird? Die Tabpage soll nur hinzugefügt werden, wenn ich auf den Subnode drücke.
Danke Euch
Grüße
Micha

EDIT:
habs jetzt auch mal mit einem HashSet(Of TapPage) versucht.
Das Hashset added ja nur, wenn das Element noch nicht vorhanden ist, richtig?
Dann versteh ich nicht, wieso es nicht klappt

VB.NET-Quellcode

Private _LstTapPage As New HashSet(Of TabPage)
If _LstTapPage.Add(tp) Then tc.TabPages.Add(tp) : tc.SelectTab(tp.TabIndex)

Ich vermute, das HashSet kann die TapPages nicht unterscheiden. Wie unterscheide ich die denn?

VB1963 · 15. Oktober 2016, 11:11

Ich mache das so:

VB.NET-Quellcode

Dim tab = New TabControl.TabPageCollection(DeinTabControlInDeinerForm)
If tab.Contains(DeineTabPage) Then tab.Remove(DeineTabPage) 'eine TabPage entfernen
If Not tab.Contains(DeineTabPage) Then tab.Add(DeineTabPage) 'eine TabPage hinzufügen

MichaHo · 15. Oktober 2016, 11:28

Hi @VB1963:
hab es jetzt so abgeändert:

VB.NET-Quellcode

<Extension()>
Public Sub AddRTBControls(tc As TabControl, tx As String, ParamArray rtbs() As RichTextBox)
tc.SuspendLayout()
Dim tcc As New TabControl.TabPageCollection(tc)
For i = 1 To rtbs.Length
Dim rtb = rtbs(i - 1)
Dim txt = If(tx, "Untitled-" & i)
Dim tp = New TabPage With {.Text = txt}
tp.Controls.Add(rtb)
If tcc.Contains(tp) Then tcc.Remove(tp) : Else tcc.Add(tp)
tc.SelectTab(tp.TabIndex)
Next
tc.ResumeLayout()
If Not tc.Visible Then tc.Visible = True
End Sub

Die Pages werden dennoch doppelt hinzugefügt bzw. so oft wie ich auf den Subnode drücke
P.S. das Problem, das nur das Subnode das Event auslöst hab ich übrigens schon gelöst.

EDIT: hängt an dem New TabControl.TabCollection.... aber wo deklariere ich es dann?
EDIT2:
ich habe jetzt Die TabCollection ausgelagert
In der Form Klasse: Private tcc As TabControl.TabPageCollection im Form_Load: tcc = New TabControl.TabPageCollection(tcSnippet)
Event:

VB.NET-Quellcode

Private Sub tvMain_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles tvMain.AfterSelect
If e.Node.Tag.ToString.StartsWith("Project") Then Return
Dim rtb As New RichTextBox With
{.Dock = DockStyle.Fill,
.BackColor = Color.DimGray,
.ForeColor = Color.WhiteSmoke,
.Text = Dts.Snippet.GetSnippetText(e.Node.Text),
.BorderStyle = BorderStyle.None,
.Font = New Font("Segeo UI", 10)}
tcc.AddRTBControls(tcSnippet, e.Node.Text, rtb)
End Sub

und die Extension dazu:

VB.NET-Quellcode

<Extension()>
Public Sub AddRTBControls(tcc As TabControl.TabPageCollection, tc As TabControl, tx As String, ParamArray rtbs() As RichTextBox)
tc.SuspendLayout()
For i = 1 To rtbs.Length
Dim rtb = rtbs(i - 1)
Dim txt = If(tx, "Untitled-" & i)
Dim tp = New TabPage With {.Text = txt}
tp.Controls.Add(rtb)
If tcc.Contains(tp) Then tcc.Remove(tp) : Else tcc.Add(tp)
tc.SelectTab(tp.TabIndex)
Next
tc.ResumeLayout()
If Not tc.Visible Then tc.Visible = True
End Sub

Ich sitze glaub schon zu lange dran, finde den Fehler einfach nicht, die gleichen Pages kommen trotzdem so oft wie ich drücke

VB1963 · 15. Oktober 2016, 12:04

in Zeile #7 Listing #2 erzeugst du immer wieder eine neues TabPage und das wird natürlich immer in den Container aufgenommen...

MichaHo · 15. Oktober 2016, 12:11

aber ich muss doch eine neue Tappage generieren, sonst hab ich ja immer die gleiche...
Ich will ja pro klick auf einen subnode eine Tabpage haben, nur eben nicht doppelt...

VB1963 · 15. Oktober 2016, 12:23

MichaHo schrieb:

aber ich muss doch eine neue Tappage generieren, sonst hab ich ja immer die gleiche...

Du hast dir die Antwort schon selbst gegeben...

MichaHo · 15. Oktober 2016, 12:31

Dann versteh ich die TabCollection nicht.
OK, also nutze ich immer die gleiche TabPage und adde sie mit der neuen RTB in die Collection, richtig?

VB1963 · 15. Oktober 2016, 13:11

Ich mache das mit Controls, die im Formseditor generiert werden. Da ist z.B. das TabPage-Control schon fertig. Dort funktioniert das...
Versuche es einmal so in deiner Schleife. Vergib deiner neuen Page einen Namen und überprüfe, ob diese schon in der Collection vorhanden ist.
(ich habe dazu auf die Schnelle Labels verwendet...)

VB.NET-Quellcode

<Extension()>
Public Sub addPages(tc As TabControl, ParamArray lbl() As Label)
tc.SuspendLayout()
Dim tcc As New TabControl.TabPageCollection(tc)
For i = 0 To lbl.Length - 1
Dim txt = "Page" & i
Dim tp = New TabPage With {.Name = lbl(i).Text, .Text = lbl(i).Text}
Dim found = False
For Each y As TabPage In tcc
If y.Name = tp.Name Then found = True : Exit For
Next
If Not found Then
tcc.Add(tp)
tp.Controls.Add(lbl(i))
lbl(i).Location = New Point(10, 10)
End If
tc.SelectTab(tp.TabIndex)
Next
tc.ResumeLayout()
If Not tc.Visible Then tc.Visible = True
End Sub

MichaHo · 15. Oktober 2016, 13:28

Hi,
das funktioniert natürlich bestens.
Hatte den Denkfehler in der Schleife weil ich am Ende erst geprüft habe ob es die Tap gibt.
Hab mich aber nur auf den text bezogen, der wird ja eh zugewiesen.
Das mit dem UserControl versuche ich später, muss mich da erst mal richtig einlesen.
Jetzt geh ich aber erstmal schwimmen mit dem Kleinen.
Danke Dir, bis später

VB1963 · 15. Oktober 2016, 14:03

Edit:

VB.NET-Quellcode

<Extension()>
Public Sub addPages(tc As TabControl, ParamArray lbl() As Label)
tc.SuspendLayout()
Dim tcc As New TabControl.TabPageCollection(tc)
For i = 0 To lbl.Length - 1
Dim txt = "Page" & i
Dim tp = New TabPage With {.Name = lbl(i).Text, .Text = lbl(i).Text}
If Not tcc.ContainsKey(tp.Name) Then
tcc.Add(tp)
tp.Controls.Add(lbl(i))
lbl(i).Location = New Point(10, 10)
End If
tc.SelectTab(tp.TabIndex)
Next
tc.ResumeLayout()
If Not tc.Visible Then tc.Visible = True
End Sub

ist noch besser...
Ich wunderte mich, wieso Contains nicht gehen sollte - einfach KontainsKey verwenden...

RodFromGermany · 15. Oktober 2016, 15:38

MichaHo schrieb:

Hatte den Denkfehler in der Schleife weil ich am Ende erst geprüft habe ob es die Tap gibt.

Wenn ich Dein Problem richtig verstanden habe, musst Du einmal die Instanzen selbst prüfen, zum anderen die Namen der Tabs. Beides funktioniert:

VB.NET-Quellcode

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
' Hinzufügen derselben Instanz
Me.TabControl1.Controls.Add(Me.TabPage1)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim tp = New TabPage
tp.Text = "bla"
' Hinzufügen einer neuen Instanz mit demselben Text
Me.TabControl1.Controls.Add(tp)
End Sub

MichaHo · 15. Oktober 2016, 16:09

@VB1963: JETZT weis ich auch, WO die ganze Zeit mein Fehler war....
Weil den Cjeck auf ContainsKey hatte ich auch, aber eben so If tcc.ContainsKey(tp.Text) Then Return und das ging nicht.
Der wichtige Hinweis ist dieser: With {.Name = lbl(i).Text
ContainsKey will zwingend den Namen der TabPage und nicht den Text.
SO funktioniert es für mich soweit ganz gut

VB.NET-Quellcode

<Extension()>
Public Sub AddRTBControls(tc As TabControl, tx As String, ParamArray rtbs() As RichTextBox)
tc.SuspendLayout()
Dim tcc As New TabControl.TabPageCollection(tc)
For i = 0 To rtbs.Length - 1
Dim txt = If(tx, "Untitled-" & i)
Dim tp = New TabPage With {.Text = txt, .Name = txt, .TabIndex = i}
tp.Controls.Add(rtbs(i))
If Not tcc.ContainsKey(tp.Name) Then tcc.Add(tp)
tc.SelectTab(tp.TabIndex)
Next
tc.ResumeLayout()
If Not tc.Visible Then tc.Visible = True
End Sub

bis auf die Tatsache, das das gerade erstellte oder schon vorhandene Tab NICHT selektiert wird.... da muss ich nochmal dran rum basteln.

EDIT: sorry @RodFromGermany erst nachm Schreiebn deinen Post gesehen

Hinzufügen von doppelten TapPages verhindern

Hinzufügen von doppelten TapPages verhindern

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

MichaHo schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

MichaHo schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

3 Benutzer haben hier geschrieben