Ideen zur Speicherung

asusdk · 21. Februar 2022, 20:50

Hi Ihr Lieben,

ich hab mir ein kleines Tool für die Arbeit geschrieben, anschließend habe ich einen IDataService eingebaut, um die vorhandenen Klassen per Serialisierung zu speichern. Wenn ich das manuell ausführe, funktioniert das auch einwandfrei.
Im Endeffekt suche ich eine Idee, wie ich aus einer Subklasse heraus, die Speicherfunktion ausführen kann, sobald das Programm beendet wird.

die erwähnte Subklasse:

Spoiler anzeigen

VB.NET-Quellcode

Imports System.Collections.ObjectModel
Public Class TicketsViewModel
Inherits BaseViewModel
Private TicketCounter As Integer = 0
Private _ticketsservice As ITicketsDataService
Public Sub New(service As ITicketsDataService)
'OpenTickets = New ObservableCollection(Of TicketViewModel)
_ticketsservice = service
OpenTickets = _ticketsservice.GetTickets
loadTickets()
If IsInDesignMode() Then
For I As Integer = 0 To 4
AddTicket()
Next
End If
End Sub
Sub loadTickets()
OpenTickets = _ticketsservice.GetTickets
End Sub
Public Sub savetickets()
_ticketsservice.SaveTickets(OpenTickets)
End Sub
Private _OpenTickets As ObservableCollection(Of TicketViewModel)
Public Property OpenTickets() As ObservableCollection(Of TicketViewModel)
Get
Return _OpenTickets
End Get
Set(ByVal value As ObservableCollection(Of TicketViewModel))
ChangePropIfDifferent(value, _OpenTickets)
End Set
End Property
Private _SelectedTicket As TicketViewModel
Public Property SelectedTicket() As TicketViewModel
Get
Return _SelectedTicket
End Get
Set(ByVal value As TicketViewModel)
ChangePropIfDifferent(value, _SelectedTicket)
End Set
End Property
Sub AddTicket()
OpenTickets.Add(New TicketViewModel(TicketCounter + 1) With {.TicketText = "afgzhubaijfasf"})
TicketCounter += 1
End Sub
Sub RemoveTicket()
If SelectedTicket IsNot Nothing Then
OpenTickets.Remove(SelectedTicket)
End If
End Sub
Public ReadOnly Property AddTicketCommand As New RelayCommand(AddressOf AddTicketCommand_Execute)
Private Sub AddTicketCommand_Execute(obj As Object)
AddTicket()
End Sub
Public ReadOnly Property RemoveTicketCommand As New RelayCommand(AddressOf RemoveTicketCommand_Execute, Function(o) SelectedTicket IsNot Nothing)
Private Sub RemoveTicketCommand_Execute(obj As Object)
If MessageBox.Show($"Do you really want to Delete Ticket number {SelectedTicket.NumericalID} from the List?", "Are you sure?", MessageBoxButton.YesNo, MessageBoxImage.Question) <> MessageBoxResult.No Then
RemoveTicket()
End If
End Sub
End Class

Nur leider fehlt mir jede Idee, wie ich das realisieren könnte. Vielleicht habt ihr ja eine? =)

Nachtrag: die einzige Idee, die ich sonst noch hätte, wäre es per Timer zu lösen, aber irgendwie find ich das nicht besonders elegant

Nofear23m · 22. Februar 2022, 22:55

asusdk schrieb:

die Speicherfunktion ausführen kann, sobald das Programm beendet wird

Wie jetzt?

Du willst erst speichern wenn das Programm beendet wird?
Und was wenn es der User über den TaskManager beendet? Was wenn es abstürzt? Und, und, und.....

Wie wäre es wenn du in dem Moment speicherst wenn sich die Daten ändern?

Grüße
Sascha

asusdk · 23. Februar 2022, 06:35

Das wäre natürlich am besten, jedoch wüsste ich ebenso nicht wie ich das realisieren sollte, ich meine klar, ich könnte jedes Mal speichern, wenn ein neues Ticket erstellt wird,
und jedes Mal, wenn ich eins entferne, das hab ich so weit auch getestet und das würde funktionieren, jedoch wüsste ich nicht wie ich erreichen könnte,
dass auch automatisch gespeichert wird, wenn sich innerhalb eines Tickets etwas ändert, das wird ja per Binding in die View transportiert, in diese Richtung sind auch alle Versuche gescheitert.

Also in meinem TicketsViewModel gibt es eine ObservableCollection(of TicketViewmodel) soweit so klar, könnte man ja wie erwähnt beim Hinzufügen oder entfernen speichern. Aber wie könnte ich automatisch speichern, wenn sich in einem
der in der Collection befindlichen Tickets etwas ändert?

Akanel · 23. Februar 2022, 09:07

Vielleicht da wo auch die View benachrichtigt wird das sich etwas geändert hat?

asusdk · 23. Februar 2022, 10:37

Akanel schrieb:

Vielleicht da wo auch die View benachrichtigt wird das sich etwas geändert hat?

Naja das passiert ja im Hintergrund per Binding, ich wüsste leider nicht wie ich hier eingreifen könnte

ErfinderDesRades · 23. Februar 2022, 11:33

naja, notifyPropertychanged ist ja ein event - das kann man abonnieren.
(vielleicht - ich bin mit deiner Architektur höchst unvertraut)

asusdk · 23. Februar 2022, 11:41

Vollzitat des direkten Vorposts an dieser Stelle entfernt ~VaporiZed

Ich verwende das BaseViewModel von dir, mit ChangePropIfDifferent ich hab das bereinigte Projekt mal angehangen, evtl. hilft das zum Nachvollziehen

Nofear23m · 26. Februar 2022, 18:07

Eine ObservableCollection hat aber auch ein Event "CollectionChanged" und wenn "Added", "Changed" oder "Removed" im Parameter dann jeweils das machen was man machen will. Und dann eben speichern. Fertig.

Grüße
Sascha

asusdk · 27. Februar 2022, 08:50

Nofear23m schrieb:

Eine ObservableCollection hat aber auch ein Event "CollectionChanged"

Ok, das hab ich eingebaut und es funktioniert einwandfrei.
Bleibt aber noch die Problematik, dass wenn sich in einem Item in der ObservableCollection etwas ändert, nichts davon gespeichert wird. Ich müsste einen Weg finden das Speichern auch zu triggern, wenn sich in einem Ticket, das in der ObservableCollection liegt, ein Wert ändert.

LG und Danke

Nofear23m · 27. Februar 2022, 09:08

Wenn du einen Speichern Button hast dann haste ja einen Command, in diesem wird das speichern übernommen.

Wenn nicht dann machste dur eine Methode und diese rufst du im Setter nach dem OnPropertyChanged auf, dann wird bei jeder änderung des Wertes gespeichert.

Grüße

asusdk · 27. Februar 2022, 09:19

Das Problem hier ist das folgende,
die Speichern Methode befindet sich Im TicketsViewModel(Sammlung aller Tickets) und ich finde keinen Weg wie ich aus dem TicketViewModel (SingleTicket) (welche sich ja innerhalb der ObservableCollection des TicketsViewModels befinden) die Speichermethode in der Parentklasse TicketsViewModel auslösen kann.

Einen Speicherbutton gibt es nicht, im Prinzip soll einfach jede Änderung automatisch gespeichert werden. Ziel des ganzen ist, wenn ich meine Anwendung beende, und wieder öffne, soll alles so sein, wie es vor dem Beenden war, ohne dass jemand aktiv speichern müsste oder dergleichen.

Nachtrag, alternativ würde mir sonst nur einfallen, im TicketsViewModel einen Timer anzulegen, sodass alle paar Sekunden gespeichert wird, das halt ich aber für keine saubere Lösung

Nofear23m · 27. Februar 2022, 09:28

Lass den Pfusch mit nem Timer. Da gibt es mehrere Lösungen. Um die beste für dich zu finden zeig doch mal wie du die Daten holst oder speicherst. Hast du dir da ein Service gebaut, hast du eine Klasse die das übernimmt wie es sich gehört? Das mpsste ich wissen.

Grüße

asusdk · 27. Februar 2022, 09:32

Die Projektmappe hängt oben in Post7 an.

Ich verwende einen IDataService in Verbindung mit dem XmlSerializer.

ITicketsDataService:

Spoiler anzeigen

MainViewModel:

Spoiler anzeigen

TicketsViewModel:

Spoiler anzeigen

VB.NET-Quellcode

Imports System.Collections.ObjectModel
Imports System.Collections.Specialized
Imports System.ComponentModel
Public Class TicketsViewModel
Inherits BaseViewModel
Private _ticketsservice As ITicketsDataService
Private TicketCounter As Integer = 0
Sub loadTickets()
OpenTickets = _ticketsservice.GetTickets
End Sub
Public Sub savetickets()
_ticketsservice.SaveTickets(OpenTickets)
End Sub
Public Sub New(service As ITicketsDataService)
_ticketsservice = service
OpenTickets = _ticketsservice.GetTickets
loadTickets()
If IsInDesignMode() Then
For I As Integer = 0 To 4
AddTicket()
Next
End If
End Sub
Private WithEvents _OpenTickets As ObservableCollection(Of TicketViewModel)
Public Property OpenTickets() As ObservableCollection(Of TicketViewModel)
Get
Return _OpenTickets
End Get
Set(ByVal value As ObservableCollection(Of TicketViewModel))
ChangePropIfDifferent(value, _OpenTickets)
End Set
End Property
Private _SelectedTicket As TicketViewModel
Public Property SelectedTicket() As TicketViewModel
Get
Return _SelectedTicket
End Get
Set(ByVal value As TicketViewModel)
ChangePropIfDifferent(value, _SelectedTicket)
End Set
End Property
Sub AddTicket()
OpenTickets.Add(New TicketViewModel(TicketCounter + 1))
TicketCounter += 1
End Sub
Sub RemoveTicket()
If SelectedTicket IsNot Nothing Then
OpenTickets.Remove(SelectedTicket)
End If
End Sub
Public ReadOnly Property AddTicketCommand As New RelayCommand(AddressOf AddTicketCommand_Execute)
Private Sub AddTicketCommand_Execute(obj As Object)
AddTicket()
End Sub
Public ReadOnly Property RemoveTicketCommand As New RelayCommand(AddressOf RemoveTicketCommand_Execute, Function(o) SelectedTicket IsNot Nothing)
Private Sub RemoveTicketCommand_Execute(obj As Object)
If MessageBox.Show($"Do you really want to Delete Ticket number {SelectedTicket.NumericalID} from the List?", "Are you sure?", MessageBoxButton.YesNo, MessageBoxImage.Question) <> MessageBoxResult.No Then
RemoveTicket()
End If
End Sub
Private Sub _OpenTickets_CollectionChanged(sender As Object, e As NotifyCollectionChangedEventArgs) Handles _OpenTickets.CollectionChanged
savetickets()
End Sub
End Class

und TicketViewModel:

Spoiler anzeigen

VB.NET-Quellcode

Imports System.ComponentModel
Imports System.Timers
Public Class TicketViewModel
Inherits BaseViewModel
Private WorkStopWatch As New Stopwatch
Private WithEvents WorkTimer As New Timer With {.Interval = 5000, .Enabled = False}
Private Sub WorkTimer_Elapsed(sender As Object, e As ElapsedEventArgs) Handles WorkTimer.Elapsed
Runtime = WorkStopWatch.Elapsed
End Sub
Public Sub New()
End Sub
Public Sub New(ByVal NumID As Integer)
NumericalID = NumID
End Sub
Private _TicketText As String = String.Empty
Public Property TicketText() As String
Get
Return _TicketText
End Get
Set(ByVal value As String)
ChangePropIfDifferent(value, _TicketText)
End Set
End Property
Private _Runtime As TimeSpan = TimeSpan.Zero
Public Property Runtime() As TimeSpan
Get
Return _Runtime
End Get
Set(ByVal value As TimeSpan)
ChangePropIfDifferent(value, _Runtime)
End Set
End Property
Private _WorkStart As DateTime?
Public Property WorkStart() As DateTime?
Get
Return _WorkStart
End Get
Set(ByVal value As DateTime?)
ChangePropIfDifferent(value, _WorkStart)
End Set
End Property
Private _WorkEnd As DateTime?
Public Property WorkEnd() As DateTime?
Get
Return _WorkEnd
End Get
Set(ByVal value As DateTime?)
ChangePropIfDifferent(value, _WorkEnd)
End Set
End Property
Private _IsWorking As Boolean
Public Property IsWorking() As Boolean
Get
Return _IsWorking
End Get
Set(ByVal value As Boolean)
ChangePropIfDifferent(value, _IsWorking)
End Set
End Property
Private _NumericalID As Integer = 0
Public Property NumericalID() As Integer
Get
Return _NumericalID
End Get
Set(ByVal value As Integer)
_NumericalID = value
End Set
End Property
Sub SwitchWorkingState()
If Not IsWorking Then
StartWorking()
Else
StopWorking()
End If
End Sub
Sub StartWorking()
WorkStopWatch.Start()
WorkTimer.Start()
If Runtime = TimeSpan.Zero Then
WorkStart = DateTime.Now
End If
IsWorking = True
End Sub
Sub StopWorking()
WorkStopWatch.Stop()
WorkTimer.Stop()
WorkEnd = DateTime.Now
Runtime = WorkStopWatch.Elapsed
IsWorking = False
End Sub
Public ReadOnly Property SwitchWorkingCommand As New RelayCommand(AddressOf SwitchWorkingCommand_Execute)
Private Sub SwitchWorkingCommand_Execute(obj As Object)
SwitchWorkingState()
End Sub
Public ReadOnly Property CopyTicketTextCommand As New RelayCommand(AddressOf CopyTicketTextCommand_Execute)
Private Sub CopyTicketTextCommand_Execute(obj As Object)
Clipboard.SetText(TicketText)
End Sub
End Class

Nofear23m · 27. Februar 2022, 09:40

Sorry, übersehen, bin mit dem Handy onli e.

Aber das sieht doch sauber aus.
Zwei möglichkeiten, entweder du machst dir ein Event in dein TicketViewmodel welches du innerhalb des TicketsViewModel abonnierst oder du reichst die Instanz des TicketService in die TicketViewModel Instanzen rein.

Bei letzterem hast du hald den Vorteil das du dann zugriff auf diesen hast und z.b. leicht ein Feature wie "Änderungen Rückgängig machen" einbauen kannst.

Später bin ich beim Rechner und kann dir das zeigen. Lade mal die aktuelle Version hoch (wird sich ja was geändert haben) und dann kann ich dich hier unterstützen.

Grüße

asusdk · 27. Februar 2022, 09:53

Der letztere Ansatz klingt gut, an dem hatte ich mich bereits versucht, bin aber kläglich gescheitert (Beim Laden war die Instanz immer Nothing, das wollte ich umgehen in dem ich beim Laden die Instanz in einer schleife, durch die aktuelle Instanz ersetzt habe, dann kam ich aber irgendwann, bei der Fehlermeldung an, dass ich eine Kreisreferenz ausgelöst habe)

Anbei die aktuelle Version, viel hatte sich aber nicht geändert

Meist eher kosmetische Anpassungen

asusdk · 27. Februar 2022, 11:02

@Nofear23m

Ich hab eine Lösung gefunden, nur ob die gut ist weiß ich nicht. Ich hab in der Application.xaml den Dataservice Instanziert, ebenso habe ich das TicketsViewModel, das ja zuvor im MainViewModel instanziert wurde, auch in der Apllication.xaml instanziert. Laden und speichern findet jetzt im Application_Startup bzw. Application_Exit statt.

Im MainViewModel geb ich jetzt einfach die Application.Tickets als Ticketsviewmodel weiter. Rein vom Verhalten der App läuft jetzt alles so wie gewünscht. hab auch das Projekt mal angehangen, falls meine Erklärung nicht ganz nachzuvollziehen war.

LG

Nofear23m · 27. Februar 2022, 11:41

Hallo

Als erstes muss ich dich unbedingt darauf aufmerksam machen das dein Upload gegen die Forenregeln verstößt. Bitte unbedingt immer vorher den bin und obj Ordner löschen vor dem Upload damit keine ausführbaren Files vorhanden sind.
Außerdem wird der Upload dadurch kleiner.

Ich habe mir das angesehen. Soweit sieht das auch gut aus. Sauber aufgebaut. Schaut aus als kommst du auf den Geschmack von MVVM. Da du beim speichern die ObservableCollection mit übergeben musst welche er speichern soll musste ich etwas umbauen.
Zum einen eher kontraproduktiv, wozu mitgeben wenn das Service die Liste ja kennen kann. Somit reicht es das du im Service dann SaveTickets() aufrufen kannst.
Eine ObservableCollection im Service ist auch ein wenig zu viel des guten. Habe mal ne List(Of T) daraus gemacht. Besser wäre sogar eine IEnumerable(Of T).

Da du nicht zwischen Model und ViewModel unterscheidest war es etwas mehr aufwand bei "erstellen" der Objekte aber ist auch im Rahmen.

Was habe ich gemacht:

Den Service umgebaut

VB.NET-Quellcode

Public Class TicketsDataService
Implements ITicketsDataService
Private _aviableTickets As List(Of TicketViewModel)
Public ReadOnly Property GetTickets As List(Of TicketViewModel) Implements ITicketsDataService.GetTickets
Get
If Not File.Exists(Application.SettingsFilePath) Then
Return New List(Of TicketViewModel)
Else
Dim ser As New XmlSerializer()
_aviableTickets = ser.DeSerialize(Application.SettingsFilePath, New List(Of TicketViewModel))
Return _aviableTickets
End If
End Get
End Property
Public Sub SaveTickets(Tickets As List(Of TicketViewModel)) Implements ITicketsDataService.SaveTickets
Dim ser As New XmlSerializer()
ser.Serialize(Application.SettingsFilePath, Tickets)
Debug.WriteLine("SAVED!!")
End Sub
Public Sub SaveTickets() Implements ITicketsDataService.SaveTickets
SaveTickets(New List(Of TicketViewModel)(_aviableTickets))
End Sub
End Class

Dann im TicketViewModel zum einen eine Methode hinzugefügt über diese man die ServiceInstance setzen kann. Diese wird vom Konstruktor der Klasse aufgerufen, aber auch von "aussen", also vom TicketsViewModel.

VB.NET-Quellcode

Friend Sub SetServiceInstance(ticketsservice As ITicketsDataService)
_ticketService = ticketsservice
End Sub

Dann wird folgende Methode jeweils in den Settern der Properties aufgerufen:

VB.NET-Quellcode

Private Sub SaveTicket()
If _ticketService IsNot Nothing Then
_ticketService.SaveTickets()
End If
End Sub

Ab nun kann jedes Ticket für sich selbst die Daten speichern.
Hierbei ist aber nun darauf zu achten das nicht bei jeder kleinen Änderung der Setter aufgerufen wird.
Z.b. hattest du im Binding UpdateSourceTrigger=PropertyChanged was in diesem Fall nicht so dolle ist wenn bei jeden Buchstaben gespeichert wird.

OK, nun zum TicketsViewModel:
Im Konstruktor wird erstmal nur ne leere ObservableCollection erstellt. und loadTickets() aufgerufen.
Da wirds interessant. Erstmal falls nicht der Fall, die Liste leeren, dann lade ich die Tickets als List(Of T).

Nun gehe ich die Einträge durch und erstelle ein neues Objekt zu hinzufügen, doch vorher übergebe ich die Instanz des Service.

VB.NET-Quellcode

Sub loadTickets()
OpenTickets = New ObservableCollection(Of TicketViewModel) 'Leere Observable erstellen
Dim tickets = _ticketsservice.GetTickets() 'Tickets laden
tickets.ForEach(Sub(x) CreateTicketInstance(x)) 'Die Objekte inkl. aktueller TicketService-Instanz hinzufügen
End Sub
Private Sub CreateTicketInstance(x As TicketViewModel)
x.SetServiceInstance(_ticketsservice)
OpenTickets.Add(x)
End Sub
Public Sub savetickets()
_ticketsservice.SaveTickets()
End Sub
Public Sub New(service As ITicketsDataService)
_ticketsservice = service
OpenTickets = New ObservableCollection(Of TicketViewModel)
loadTickets()
If IsInDesignMode() Then
For I As Integer = 0 To 4
AddTicket()
Next
End If
End Sub

Das ist es dann auch schon. Kann man sicher noch schöner aufbauen, aber fürs Verständnis sollte das passen.

Grüße
Sascha

Edit wegen deiner letzten Antwort (erst jetzt gesehen):
Du hast das Projekt recht sauber aufgebaut, das klingt nun aber mehr nach Workaround als nach "implementierung".

asusdk · 27. Februar 2022, 14:00

Hm, erhalte beim Ausführen leider eine Fehlermeldung:

Nachtrag: Ich kann auch nicht nachvollziehen, woher der IDataService denn jetzt die Liste kennt, wenn ich die nicht mit übergebe? ?(?(

Nachtrag2:

Als erstes muss ich dich unbedingt darauf aufmerksam machen das dein Upload gegen die Forenregeln verstößt.

Ok mach ich in Zukunft, hab bisher einfach die .exe-Dateien gelöscht

VaporiZed · 27. Februar 2022, 14:06

Der Parameter ist entweder die Startkapazität oder die Elemente, die der Liste von Beginn an hinzugefügt werden sollen. Wenn letzteres null/Nothing ist, gibt's Ärger. Steht auch in der Doku.

btw: available, nicht aviable

Nofear23m · 27. Februar 2022, 17:02

Oh, da muss was mit den Files passiert sein. Ich pack dann gleich noch ein Zip und stells ein. Da passt was nicht!!

Ideen zur Speicherung

Ideen zur Speicherung

VB.NET-Quellcode

asusdk schrieb:

Akanel schrieb:

Nofear23m schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Tags

Ähnliche Themen

5 Benutzer haben hier geschrieben