Toggle nach Neustart aktiv halten?

[conman]

Hallo,

Ich habe mich jetzt durch die Suche gewurstelt ein bisschen hin und her probiert aber bin nicht zu dem Ergebnis gekommen das ich wollte.

Wie genau schaff ich es, dass wenn ich im Programm auf einen ToggleButton drücke um beispielsweise das Volumen auf 0 zu setzen, diese Einstellung nach einem neustart immernoch aktiv ist?

bis jetzt hat alles was ich gefunden und umprobiert hab nicht zu meinem gewünschten Erfolg geführt.

mfg.

[Roeschti]

Du koenntest zb. Den Zustand via Settings speichern und beim laden anhand der gespeicherten Settings den toggle Zustand setzen.

[Kiffi]

Originally Posted by Roeschti

Du koenntest zb. Den Zustand via Settings speichern und beim laden anhand der gespeicherten Settings den toggle Zustand setzen.

@conman: Hierfür könntest Du beispielsweise eine Map verwenden

Dim MySettings As Map
MySettings.Initialize()
MySettings.Put("Volume", 0)

Mit File.ReadMap / File.WriteMap kannst Du die Map dann komfortabel
laden und speichern.

Grüße ... Kiffi

[corwin42]

Dafür gibt es das StateManager Modul von Erel.

Damit lassen sich einfach Einstellungen (also beliebige Key-Value paare) oder auch der Status der GUI-Objekte speichern.

[Kiffi]

Originally Posted by corwin42

Dafür gibt es das StateManager Modul von Erel.

auch nicht schlecht! Danke für den Hinweis!

Grüße ... Kiffi

[conman]

Kiffi, wärst du evtl. so nett und würdest mir ein kleines Beispiel geben?

Sub tb_CheckedChange(UserCheckedChange As Boolean)
If UserCheckedChange = True Then
MediaPlayer1.Pause
End If
If UserCheckedChange = False Then
MediaPlayer1.Play
End If

ist die Anweisung. Ist etwas umständlich was ich da geschrieben hab, ja. Aber irgednwie wollte es nich anders.

Oder muss ich die Anweisung aus der map irgendwo unterbringen dort? und was müsste ich definieren?

mfg

[Kiffi]

Originally Posted by conman

Kiffi, wärst du evtl. so nett und würdest mir ein kleines Beispiel geben?

vielleicht sowas in der Art (den von corwin42 empfohlenen StateManager
habe ich mir jetzt noch nicht genau angeschaut. Vielleicht solltest Du da
vorher einen Blick reinwerfen):

Sub Globals

    Dim mySettings As Map

End Sub

Sub Activity_Create(FirstTime As Boolean)

    mySettings.Initialize
    
    If File.Exists(File.DirInternal, "settings.ini") Then
        mySettings = File.ReadMap(File.DirInternal, "settings.ini")
    End If
    
    ' [...]
        
    If mySettings.Get("MediaPlayerPlay") = True Then
        MediaPlayer1.Play    
    Else
        MediaPlayer1.Pause
    End If

End Sub

Sub tb_CheckedChange(Checked As Boolean)
    
    If Checked = True Then
        MediaPlayer1.Pause
    Else
        MediaPlayer1.Play
    End If
    
    mySettings.Put("MediaPlayerPlay", Checked)
    
End Sub

An geeigneter Stelle müsstest Du dann noch die Settings abspeichern:

File.WriteMap(File.DirInternal, "settings.ini", mySettings)

Was meinen die anderen?

Grüße ... Kiffi

[conman]

Hallo Kiffi,

ich habe es gerade versucht
Nun sind zwei Probleme:
1. Ich habe einen "NullPointerExeption"
und das zweite: Er speichert zwar den Status des Toggle Buttons, aber die musik geht dennoch wieder an.

mfg

[Kiffi]

Originally Posted by conman

1. Ich habe einen "NullPointerExeption"

wo?

ich weiß nicht, wie sich eine Map verhält, wenn man auf einen nicht vorhandenen Key zugreifen will. Ändere mal folgendes:

If File.Exists(File.DirInternal, "settings.ini") Then
  mySettings = File.ReadMap(File.DirInternal, "settings.ini")
Else
  ' sollte 'settings.ini' noch nicht vorhanden sein, dann hier erstmal einen Default-Wert setzen
  mySettings.Put("MediaPlayerPlay", True) ' Wenn der MP beim ersten Start nicht laufen soll, dann hier False eintragen
End If

Originally Posted by conman

und das zweite: Er speichert zwar den Status des Toggle Buttons, aber die musik geht dennoch wieder an.

mh, so ohne Code kann ich dazu nicht viel konkretes sagen.

Grüße ... Kiffi

[conman]

Ich habe den Quellcode mal in eine txt gepackt, wenn du ihn dir anschauen möchtest. Es ist zwar noch etwas unsauber alles aber man kann erkennen wo etwas ist, hoffe ich. Sofern du möchtest natürlich, ich möcht niemandem mehr arbeit machen als gewollt

mfg