[ameerah]

ضع هذا الكود هما هو وإذا ظهر إرور أكتب الايرور

كود :

Dim settingsFile As String = "mysettings"

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    If IO.File.Exists(settingsFile) Then ImportSettings(settingsFile)

End Sub

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    ExportSettings(settingsFile)
End Sub



' إستيراد الاعدادت من ملف خارجي
Public Sub ImportSettings(ByVal fileName As String)
    Using sReader As New IO.StreamReader(fileName)
        While sReader.Peek() > 0
            Dim input = sReader.ReadLine()
            Dim dataSplit = input.Split(vbTab)
            My.Settings(dataSplit(0)) = dataSplit(1)
        End While
    End Using
    My.Settings.Save()
End Sub
' تصدير الاعدادت إلى ملف خارجي
Public Sub ExportSettings(ByVal fileName As String)
    Using sWriter As New IO.StreamWriter(fileName)
        For Each setting As Configuration.SettingsPropertyValue In My.Settings.PropertyValues
            sWriter.WriteLine(setting.Name & vbTab & setting.PropertyValue.ToString())
        Next
    End Using
    My.Settings.Save()
End Sub