Visual Basic - zapisywanie ustawień

Question

Cześć. Jestem mega początkujący więc wiadomo...

Pisze programik, który ma dwa przyciski. Jeden z nich otwiera okno explorera i w nim wskazuję lokalizację folderu na dysku. Po wybraniu folderu, program powinien zapisać sobie wskazaną lokalizację po to, aby drugi przycisk otwierał ten folder.

Probel mam z tym że program nie zapisuje mi ustawień i od razu się wywala. Nie działa u mnie taki kod:

     My.Settings.ZMIENNA = SelectedPath
     My.Settings.Save()

Comments

GOTOWE DZIAŁA !!! BARDZO DZIĘKUJĘ :) !!!

---

Jednak jeszcze musze o coś spytać. Klikając na button w którym wybieram folder/ścieżkę do zapamiętania, chciałbym żeby otwerając okno dialogowe otworzyło się na ścieżce z xml,

 

     If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            MySettings.DocumentElement("CSF").InnerText = FolderBrowserDialog1.SelectedPath
            CSF = MySettings.DocumentElement("CSF").InnerText
        End If

 

---

Dobrze to wymyśliłem że tyle ile chcę okien do wyszukiwania folderów tyle muszę mieć FolderBrowserDislogów ?

---

Bazdury wypisuję z tą ilością :)

Wystarczyło zrobić tak:

    Private Sub Button39_Click(sender As Object, e As EventArgs) Handles btn_Photoshop_S2.Click

        info.Visible = False

        FolderBrowserDialog.SelectedPath = MySettings.DocumentElement("PS_S").InnerText + "\"

        info.Visible = True
        info.Text = MySettings.DocumentElement("PS_S").InnerText

        If FolderBrowserDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
            MySettings.DocumentElement("PS_S").InnerText = FolderBrowserDialog.SelectedPath
        End If

        MySettings.Save("MySettings.xml")

    End Sub

a w kolejnym tak:
 

    Private Sub Button37_Click(sender As Object, e As EventArgs) Handles btn_Illustrator_S2.Click


        info.Visible = False

        FolderBrowserDialog.SelectedPath = MySettings.DocumentElement("AI_S").InnerText + "\"

        info.Visible = True
        info.Text = MySettings.DocumentElement("AI_S").InnerText

        If FolderBrowserDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
            MySettings.DocumentElement("AI_S").InnerText = FolderBrowserDialog.SelectedPath
        End If

        MySettings.Save("MySettings.xml")

    End Sub

 

---

Jeżeli chodzi o kilka przycisków, które wykonują ten sam kod można pokusić się o taki zapis

 

MySettings.xml

<?xml version="1.0" encoding="utf-8"?>
<root>
  <PS_W></PS_W>
  <CS_F></CS_F>
  <PS_S></PS_S>
  <AI_S></AI_S>
</root>

 

 

Form1.vb

Public Class Form1
    Private MySettings As Xml.XmlDocument = New Xml.XmlDocument

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MySettings.Load("MySettings.xml")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        GetPathToFolder("PS_W")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        GetPathToFolder("CS_F")
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        GetPathToFolder("PS_S")
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        GetPathToFolder("AI_S")
    End Sub

    Private Sub GetPathToFolder(ByVal VariableName As String)
        Timer_ClearInfo.Enabled = False

        FolderBrowserDialog.Description = "Ustaw ścieżkę dla " + VariableName
        FolderBrowserDialog.SelectedPath = MySettings.DocumentElement(VariableName).InnerText
        info.Text = VariableName + ": " + MySettings.DocumentElement(VariableName).InnerText

        If FolderBrowserDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
            MySettings.DocumentElement(VariableName).InnerText = FolderBrowserDialog.SelectedPath + "\"
        End If

        Timer_ClearInfo.Enabled = True
        MySettings.Save("MySettings.xml")
    End Sub

    Private Sub Timer_ClearInfo_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer_ClearInfo.Tick
        info.Text = vbNullString
        Timer_ClearInfo.Enabled = False
    End Sub

End Class