ضع هذا الكود هما هو وإذا ظهر إرور أكتب الايرور
كود :
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
اخى هل الهذه البيانات المهمة تكون داخل فورم ام انت تضع ملف الورد وتقوم بالستدعائه بالكود
اذا كان فورم تستطيع وضع رقم سرى له لاكن اذا كان ملف ورد تستدعيه فلا اعلم هل من الممكن او لا
جرب هذا التعديل للكود التصدير والاستيراد
إحذف ملف mysettings القديم ثم استبدل هذا الكود بدل القديم
كود :
' إستيراد الاعدادت من ملف خارجي
Public Sub ImportSettings(ByVal fileName As String)
Using sReader As New IO.StreamReader(fileName)
While sReader.Peek() > 0
Dim input As String = System.Text.Encoding.UTF8.GetString(System.Convert.FromBase64String(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
Dim s As String = setting.Name & vbTab & setting.PropertyValue.ToString()
sWriter.WriteLine(System.Convert.ToBase64String(System.Text.Encoding.UTF8.GetBytes(s)))
Next
End Using
My.Settings.Save()
End Sub
