Letzte Useraktion rückgängig machen - Umsetzungsidee gesucht

nogood · 14. März 2020, 10:33

Moin Leute,

leider bin ich gedanklich in einer Sackgasse gelandet, vielleicht könnt Ihr helfen? Dankeschön fürs Lesen!

Folgendes Beispiel:

Eine Form und eine ListBox mit dem Inhalt (Flussdiagramm Stufe 1):

Autos
Motoräder

User klickt Auto -> der Inhalt der ListBox änder sich wie folgt (Stufe 2):

VW
BMW
Skoda

User klickt VW -> der Inahlt der ListBox änder sich wieder wie folgt (Stufe 3):

T5
T6
Golf4
Passat3

Wie sollte man die Idee eines mach die Letzte Wahl/Klick rückgängig Button aussehen?
(User wollte z.B. BMW statt VW klicken oder User wollte Motorrad statt Autos wählen)

Dancger · 14. März 2020, 11:04

In der Theorie besitzt jeder Eintrag einen oder keinen übergeordneten Eintrag. Speicherst du dir den aktuell ausgewählten Eintrag (z.B. VW), dann kannst du via übergeordneten Eintrag des gespeicherten Eintrags (VW => Autos) wieder alle Eintäge laden, die dem Eintrag Autos untergeordnet sind. Somit könntest du einen "Zurück"/"Ebene höher" Button implementieren.

Edit: Denk an eine Baumstruktur:

nogood · 14. März 2020, 11:57

Ich hab hab halt "Angst" vor den ganzen if Schleifen etc. es reicht ja schon eine Richtung und dann dasselbe noch mal rückwärts.

Jetzt denk ich gerade pseudo Code:

UserInput ={"Stufe1" = "Auto", "Stufe2" = "VW", "Stufe3"="T5"}

User drückt ZurückButton -> letzte Key:Value Paar in dem AntwortSammelString löschen -> UserInput ={"Stufe1" = "Auto", "Stufe2" = "VW"} und diese Info nutzen um eine "neue Auswahl" bis zu dieser Stelle automatisch zu erzeugen.

Also erzeuge einen neuen AntwortSammelString (starte Methode Zurueck(UserInput)) und starte die Baustruktur von Vorne nur diesmal entscheide automatisch anhand des alten AntwortStrings welcher Zweig genommen werden soll und stopp eine Stufe früher.

Ich hoffe mal das das richtig ist was ich mir ausdenke...

Danke für den Gedankenanstoß

SpaceyX · 14. März 2020, 13:00

Hi,

das lässt sich in diesem Fall recht elegant mit einem Stack lösen. Erst mal der Code:

VB.NET-Quellcode

Imports System.Collections.Generic
Public Class Form1
Private topLevelEntry As New Entry()
Private states As New Stack(Of Entry)
Public Sub New()
InitializeComponent()
Dim cars = New Entry()
cars.Items.AddRange({"BMW", "Audi", "VW"})
Dim bmws = New Entry()
bmws.Items.AddRange({"320i", "330i", "850csi", "730d"})
cars.Entries.Add(bmws)
Dim audis = New Entry()
audis.Items.AddRange({"A3", "A4", "RS4"})
cars.Entries.Add(audis)
Dim vws = New Entry()
vws.Items.AddRange({"Golf", "Passat", "Käfer"})
cars.Entries.Add(vws)
Dim bikes = New Entry()
bikes.Items.AddRange({"Harley", "BMW", "Duccati"})
Dim harleys = New Entry()
harleys.Items.AddRange({"Harley1", "Harley2", "Harley3"})
bikes.Entries.Add(harleys)
Dim bmwBikes = New Entry()
bmwBikes.Items.AddRange({"BMW1", "BMW2"})
bikes.Entries.Add(bmwBikes)
Dim duccaties = New Entry()
duccaties.Items.AddRange({"Duccati1", "Duccati2", "Duccati3", "Duccati4"})
bikes.Entries.Add(duccaties)
topLevelEntry.Items.AddRange(New String() {"Autos", "Motorräder"})
topLevelEntry.Entries.AddRange({cars, bikes})
states.Push(topLevelEntry)
ListBox1.DataSource = states.Peek().Items
End Sub
Private Sub ListBox1_Click(sender As Object, e As EventArgs) Handles ListBox1.Click
Dim index = Me.ListBox1.SelectedIndex
If index > -1 Then
Dim entry = states.Peek()
If (entry.Entries.Count > 0) Then
states.Push(states.Peek().Entries(index))
ListBox1.DataSource = states.Peek().Items
End If
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If states.Count > 1 Then
states.Pop()
ListBox1.DataSource = states.Peek().Items
End If
End Sub
End Class
Public Class Entry
Public Items As New List(Of String)
Public Entries As New List(Of Entry)
End Class

Als erstes wird ein topLevelEntry (Autos, Motörräder) erzeugt. Jeder Entry in diesem topLevelEntry bekommt wiederrum Entries (Autos => BMW, Audi...., Motorräder => Harley, Duccati....). Und jedem dieser Entries werden nun die Modelle zugeordnet.

Wird die ListBox geclicked, wird der gewählte Eintrag auf den Stack gepushed. Es wird über den Index festgelegt, welcher Eintrag gewählt wurde. Der letzte Eintrag auf dem Stack wird nun angezeigt. Clickt man den Zurück-Button (hier button1), so wird das erste Item vom Stack genommen und verworfen und das darunterliegende angezeigt....

Das ist nur auf die Schnelle zusammengezimmert und soll auch nur das Prinzip verdeutlichen. Keine Garantie auf Richtigkeit und Vollständigkeit.

ErfinderDesRades · 14. März 2020, 15:23

Prinzipiell ist hier der Commadn-Pattern gefordert, und zwar in der verschärften Version, wo jedes Command aus einer Do und einer UnDo - Action besteht.
Und jegliche Aktion darf nur über diese Commands laufen.
Die Commands gehören in eine History-List (nicht Stack) - dann kann man den Do/UnDo/ReDo-Pattern implementieren.
CodeSample habich vor langem mal auf myCSharp gemacht - müsste ich suchen.

FormFollowsFunction · 14. März 2020, 16:14

@ErfinderDesRades
Ich habe es mal rausgekramt.
mycsharp.de/wbb2/thread.php?threadid=64852

RodFromGermany · 14. März 2020, 16:46

@FormFollowsFunction Leider ist das ein hohler Vogel, da wurden leider alle Anhänge geleert, auch im verlinkten Post.

FormFollowsFunction · 14. März 2020, 17:01

Also ich habe mir die Testsolution eben runtergeladen, alles ok.

RodFromGermany · 14. März 2020, 17:12

@FormFollowsFunction Sorry, ich hab sie in nem neuen Tab geöffnet, da stand ne leere XML-Hülse.
Eben hab ich es noch mal gemacht, da funktioniert es.
Unklar. Freitag der 13. war gestern.

nogood · 14. März 2020, 18:41

Erstmal Danke an alle Poster ...

@SpaceyX Danke für den Aufwand mir so im Detail zu helfen. @ErfindesRades Wie immer unglaublich was Du für die Community schon gemacht hast und machst Danke
Es schein wie immer zu sein, ich muss mich erstmal mit mir neuen Sachen beschäftigen, bis ich Eure Vorschläge umsetzen kann. Für den Moment ist mir SpaceyX Ansatz näher an dem, wie ich es selber versucht hätte. Wusste aber nicht das es die Stack() Methode gibt.
Die Richtung ist erstmal klar ... also ran an die Umsetzung

nogood · 16. März 2020, 20:27

@SpaceyX So ganz klar durchdenken kann ich die Lösung immer noch nicht. Aber der Nebel lichtet sicher immer mehr. Am ehesten musste ich an Escher Bilder denken (endlose Treppen etc.).

Zur Sache: Ich hab Dein Beispiel im Fall Auto->BMW mal um eine Detailstufe vertieft "Leistung" (140 PS, 220 PS).

Wenn man die Baumstruktur noch weiter verästeln würde, würde der Code ja doch recht lang (nicht schwer aber eben viele Zeilen). Sollte ich mir die Lösung von @ErfinderDesRades doch noch genauer ansehen oder wächst der Code da auch mit der Anzahl der Verästelungen stark an? Ich bin leider nicht erfahren genug, um schnell zu sehen, ob es sich lohn die Zeit da zu investieren.

Hier mal meine "Erweiterung" (die Namen der Klassen etc. hab ich auch geändert, um für mich selber besser klar zu kommen).
Die Form besitzt jetzt 1xButton 2xListBox 1xRichTextBox. Die Extra Anzeigen hab ich mir noch reingesetzt, um besser zu sehen was bei jedem Schritt passiert.

Tausend Dank nochmal für deinen Vorschlag!

Spoiler anzeigen

VB.NET-Quellcode

Public Class Form1
Private topLevelEntry As New EntryClass()
Private StackStufe As New Stack(Of EntryClass)
Public Sub New()
InitializeComponent()
Dim cars = New EntryClass()
cars.propLstStringItems.AddRange({"BMW", "Audi", "VW"})
' CARS
Dim bmws = New EntryClass()
bmws.propLstStringItems.AddRange({"320i", "330i", "850csi", "730d"})
cars.propLstEntrysObj.Add(bmws)
'"nogood" Testerweiterung Anfang
Dim leistung320 = New EntryClass()
leistung320.propLstStringItems.AddRange({"320 PS", "220 PS"})
bmws.propLstEntrysObj.Add(leistung320)
Dim leistung330 = New EntryClass()
leistung330.propLstStringItems.AddRange({"330 PS", "220 PS"})
bmws.propLstEntrysObj.Add(leistung330)
Dim leistung850 = New EntryClass()
leistung850.propLstStringItems.AddRange({"850 PS", "220 PS"})
bmws.propLstEntrysObj.Add(leistung850)
Dim leistung730 = New EntryClass()
leistung730.propLstStringItems.AddRange({"730 PS", "220 PS"})
bmws.propLstEntrysObj.Add(leistung730)
'"nogood" Testerweiterung Ende
Dim audis = New EntryClass()
audis.propLstStringItems.AddRange({"A3", "A4", "RS4"})
cars.propLstEntrysObj.Add(audis)
Dim vws = New EntryClass()
vws.propLstStringItems.AddRange({"Golf", "Passat", "Käfer"})
cars.propLstEntrysObj.Add(vws)
Dim bikes = New EntryClass()
bikes.propLstStringItems.AddRange({"Harley", "BMW", "Duccati"})
' BIKES
Dim harleys = New EntryClass()
harleys.propLstStringItems.AddRange({"Harley1", "Harley2", "Harley3"})
bikes.propLstEntrysObj.Add(harleys)
Dim bmwBikes = New EntryClass()
bmwBikes.propLstStringItems.AddRange({"BMW1", "BMW2"})
bikes.propLstEntrysObj.Add(bmwBikes)
Dim duccaties = New EntryClass()
duccaties.propLstStringItems.AddRange({"Duccati1", "Duccati2", "Duccati3", "Duccati4"})
bikes.propLstEntrysObj.Add(duccaties)
topLevelEntry.propLstStringItems.AddRange(New String() {"Autos", "Motorräder"})
topLevelEntry.propLstEntrysObj.AddRange({cars, bikes})
StackStufe.Push(topLevelEntry)
ListBox1.DataSource = StackStufe.Peek().propLstStringItems
'EGO
Aktualisieren()
End Sub
Private Sub ListBox1_Click(sender As Object, e As EventArgs) Handles ListBox1.Click
Dim index = Me.ListBox1.SelectedIndex
'EGO
RichTextBox1.Text += "Index selected: " + index.ToString + " : " + Me.ListBox1.SelectedItem.ToString + vbNewLine
ListBox2.Items.Add(Me.ListBox1.SelectedItem.ToString)
If index > -1 Then
Dim entryClassobj = StackStufe.Peek()
If (entryClassobj.propLstEntrysObj.Count > 0) Then
StackStufe.Push(StackStufe.Peek().propLstEntrysObj(index))
ListBox1.DataSource = StackStufe.Peek().propLstStringItems
End If
End If
'EGO
Aktualisieren()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If StackStufe.Count > 1 Then
StackStufe.Pop()
ListBox1.DataSource = StackStufe.Peek().propLstStringItems
'EGO
Aktualisieren()
End If
If ListBox2.Items.Count > 0 Then
ListBox2.Items.RemoveAt(ListBox2.Items.Count - 1)
End If
End Sub
Public Class EntryClass
Public propLstStringItems As New List(Of String)
Public propLstEntrysObj As New List(Of EntryClass)
End Class
Private Sub Aktualisieren()
'EGO
Dim counter As Integer = 0
RichTextBox1.Text += "==========================================" + vbNewLine
RichTextBox1.Text += "StackStufe: " + StackStufe.Count.ToString + vbNewLine
For Each obj In StackStufe
RichTextBox1.Text += "EntryClass-> List Items Einträge: "
For Each eintrag In obj.propLstStringItems
RichTextBox1.Text += eintrag + " // "
Next
counter = obj.propLstEntrysObj.Count
RichTextBox1.Text += vbNewLine + "Anzahl List(Of EntryClass): " + counter.ToString + vbNewLine + "--------------------------------" + vbNewLine
Next
RichTextBox1.Text += vbNewLine
End Sub
End Class

Gibt es zu meiner Erweiterung "Leistung PS" noch was zu sagen (außer das die Benamung mau ist

).

ErfinderDesRades · 16. März 2020, 23:28

Mir scheint das mittm Baum in eine falsche Richtung zu laufen. Eine baumartige Daten-Organisation ist ja schön und gut, hat aber mit Do/UnDo/ReDo eiglich nix zu tun.
Also Do/UnDo/ReDo geht auch mit anders strukturierten Daten (etwa mit Listen - was bei Listboxen ja eiglich naheliegt).

Letzte Useraktion rückgängig machen - Umsetzungsidee gesucht

Letzte Useraktion rückgängig machen - Umsetzungsidee gesucht

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

6 Benutzer haben hier geschrieben