30-12-17, 07:28 PM
السلام لكم اخوتي
البرنامج مش بيرضي يعمل حفظ للاعدادات بشكل صحيح
بيحفظ فقط اول كلمة من اي حاجة بضعها في My.setting
يعني لو الـ My.Setting = "Dany Ghost "
يحفظ كلمة Dany وبعد المسطرة ميحفظش حاجة
لو كان الـ My.Setting = "Windows XP "
يروح يحفظ Windows وميحفظش XP
علماً بأني واضع هذا الكود في الفورم
ايه الحل يا شباب ؟
البرنامج مش بيرضي يعمل حفظ للاعدادات بشكل صحيح
بيحفظ فقط اول كلمة من اي حاجة بضعها في My.setting
يعني لو الـ My.Setting = "Dany Ghost "
يحفظ كلمة Dany وبعد المسطرة ميحفظش حاجة
لو كان الـ My.Setting = "Windows XP "
يروح يحفظ Windows وميحفظش XP
علماً بأني واضع هذا الكود في الفورم
PHP كود :
Dim settingsFile As String = "Unstall Program"
' إستيراد الاعدادت من ملف خارجي
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
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
Private Sub LogIn1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
ExportSettings(settingsFile)
End Sub
Private Sub LogIn1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If IO.File.Exists(settingsFile) Then ImportSettings(settingsFile)
ايه الحل يا شباب ؟