Speichern von Krypton

  • VB.NET

    Speichern von Krypton

    Hallöchen,

    ich bastle schon seit längeren an einen Webbrowser, dabei fiel mir ein, dass Krypton-Elemente nicht gespeichert werden.
    Hier habe ich paar Screens und hoffe ihr könnt es verstehen und mir helfen:

    -Bild 1

    -Bild 2

    Wie kann Elemente von Krypton abspeichern?

    VB.NET-Quellcode

    1. Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
    2. My.Settings.Save()
    3. If CheckBox1.Checked Then
    4. My.Settings.Save()
    5. Form1.CheckBox1.Checked = True
    6. Form1.BackColor = Color.Red
    7. Form1.PictureBox15.BackColor = Color.Brown
    8. Form1.PictureBox16.BackColor = Color.DarkRed
    9. Label6.Text = "Rot ausgewählt"
    10. Form1.KryptonPanel1.Visible = False
    11. Form1.KryptonPanel2.Visible = False
    12. Else
    13. Form1.BackColor = Color.LightBlue
    14. Form1.CheckBox1.Checked = False
    15. Form1.PictureBox15.BackColor = Color.SkyBlue
    16. Form1.PictureBox16.BackColor = Color.SteelBlue
    17. Form1.KryptonPanel1.Visible = True
    18. Form1.KryptonPanel2.Visible = True
    19. Label6.Text = "Rot"
    20. End If
    24. End Sub
    26. Private Sub Form8_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    27. My.Settings.farbe_rot = CheckBox1.Checked
    28. My.Settings.farbe_grün = CheckBox2.Checked
    29. My.Settings.farbe_gelb = CheckBox4.Checked
    30. My.Settings.farbe_pink = CheckBox3.Checked
    31. My.Settings.farbe_schwarz = CheckBox5.Checked
    32. My.Settings.Save()
    33. End Sub
    35. Private Sub Form8_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    36. CheckBox1.Checked = My.Settings.farbe_rot
    37. CheckBox2.Checked = My.Settings.farbe_grün
    38. CheckBox4.Checked = My.Settings.farbe_geld
    39. CheckBox3.Checked = My.Settings.farbe_pink
    40. CheckBox5.Checked = My.Settings.farbe_schwarz
    41. End Sub


    Oh man, ich wäre so dankbar, wer mir zumindest helfen könnte oder versucht.

    Gruß IbBlue

Facebook
Telefonspende