10-10-13, 12:45 AM
السلام عليكم ورحمة الله وبركاته
وجدت كود تصدير واستيراد الاعدادات Settings بملف خارجي، وجعلتها بشكل دوال ترسل لها اسم الملف
دالة تصدير الاعدادت إلى ملف خارجي
دالة إستيراد الاعدادت من ملف خارجي
طريقة الاستخدام
السلام عليكم ورحمة الله وبركاته
وجدت كود تصدير واستيراد الاعدادات Settings بملف خارجي، وجعلتها بشكل دوال ترسل لها اسم الملف
دالة تصدير الاعدادت إلى ملف خارجي
كود :
' تصدير الاعدادت إلى ملف خارجي
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دالة إستيراد الاعدادت من ملف خارجي
كود :
' إستيراد الاعدادت من ملف خارجي
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طريقة الاستخدام
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sDialog As New SaveFileDialog()
sDialog.DefaultExt = ".AppSettings"
sDialog.Filter = "Application Settings (*.AppSettings)|*AppSettings"
If sDialog.ShowDialog() = DialogResult.OK Then
ExportSettings(sDialog.FileName)
MessageBox.Show("تم تصدير الاعدادات")
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim oDialog As New OpenFileDialog
oDialog.Filter = "Application Settings (*.AppSettings)|*AppSettings"
If oDialog.ShowDialog() = DialogResult.OK Then
ImportSettings(oDialog.FileName)
MessageBox.Show("تم استيراد الاعدادات")
End If
End Subيجب الانتباه عند نسخ الكود قد تجد مسافة داخل أحد أسطر الكود (بسبب خلل في عرض الكود) مما يظهر خطأ فيجب حذف المسافة المدرجة
السلام عليكم ورحمة الله وبركاته