26-10-18, 03:20 AM
عند حدث اللود عطل تحميل الحدث و ضع بدلا عنه الكود التالي :
عند ظهور الرسالة ضع موافق ثم أغلق البرنامج و ألغ الكود و أعد الكود السابق الى حدث
كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'LoadSavedThems(Me)'كود الاستدعاء
My.Settings.TextBoxBackColor = Color.Blue.Name
My.Settings.Save()
MsgBox("تمت عملية الحفظ بنجاح", MsgBoxStyle.Information + MsgBoxStyle.MsgBoxRtlReading + MsgBoxStyle.MsgBoxRight, "حفظ سمة")
End Subعند ظهور الرسالة ضع موافق ثم أغلق البرنامج و ألغ الكود و أعد الكود السابق الى حدث
كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
LoadSavedThems(Me)'كود الاستدعاء
End Subسبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
