20-02-18, 07:59 PM
حفقظ البيانات من التكست بوكس 1 و2 و3 في
My.Settings
وكود يتم القراءة البيانات المحفوظة من الMy.Settings
ومع امكانية مسح البيانات الموجوده فى My.Settings
My.Settings.
(20-02-18, 11:10 PM)ibraheam كتب : [ -> ]اعتقد ان العناصر في تبويبة ال (Setting) هي للقراءة فقط وبالتالي لا يمكن تغييرها او حذفها في وقت التنفيذ (Run Time)شكرا لحضرتك ولكن الفكرة انا عايز احفظ البيانات الى بتكتب مرة واحدة فقط من التيكست 1 و 2 و 3 بس ويتم الاتصال بيهم فى كل الفروم الموجودة فى البرنامج
اما قراءتها فهي كما اشرت في مشاركتك
ثم تذكر اسم العنصر الموجود ضمن تبويبة ال (Setting)PHP كود :
My.Settings.
تحياتي
(21-02-18, 06:58 PM)عبد العزيز البسكري كتب : [ -> ]السلام عليكم و رحمة الله و بركاته
لو سمحت أخي " مصطفى كمال " .. كيف تم حل المشكلة .. من حيث الحفظ و قراءة البيانات و حذفها من الريجستري
بارك الله فيك سلفا
تحياتي
(21-02-18, 09:00 PM)MOSTAFA.KAMEL كتب : [ -> ](21-02-18, 06:58 PM)عبد العزيز البسكري كتب : [ -> ]السلام عليكم و رحمة الله و بركاته
لو سمحت أخي " مصطفى كمال " .. كيف تم حل المشكلة .. من حيث الحفظ و قراءة البيانات و حذفها من الريجستري
بارك الله فيك سلفا
تحياتي
تم حل المشكلة بملف تيكست بمعنى ان البيانات تتحفظ فى الملف التكست ويتم تحميل البيانات منها فى المشروع
Dim ll As RegistryKey = Registry.CurrentUser.OpenSubKey("MyKeys", True)
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
' ط حفظ القيمة بالريجستير'
Registry.CurrentUser.CreateSubKey("MyKeys") ' إضافة مفتاح جديد
ll.SetValue("MyKeys", TextBox1.Text) ' لإضافة قيمة جديدة
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
' جلب القيمة من لريجستير
MsgBox(ll.GetValue("MyKeys", True))
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
' حذف مفتاح
ll.DeleteValue("MyKeys", True)
End Sub Private Sub Button19_Click(sender As System.Object, e As System.EventArgs) Handles Button19.Click
'كود الحفظ
SaveSetting(Application.ProductName, "Mvalue", "00000", TextBox1.Text)
End Sub
Private Sub Button21_Click(sender As System.Object, e As System.EventArgs) Handles Button21.Click
'كود استدعاء القيمة
TextBox1.Text = GetSetting(Application.ProductName, "mvalue", "00000")
End Sub(21-02-18, 10:15 PM)محمد اسماعيل كتب : [ -> ]موضوع الريجيستير كامل
انشاء مفتاح و اضافة قيمة للريجيستير و حذف المفتاح
كود :
Dim ll As RegistryKey = Registry.CurrentUser.OpenSubKey("MyKeys", True)
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
' ط حفظ القيمة بالريجستير'
Registry.CurrentUser.CreateSubKey("MyKeys") ' إضافة مفتاح جديد
ll.SetValue("MyKeys", TextBox1.Text) ' لإضافة قيمة جديدة
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
' جلب القيمة من لريجستير
MsgBox(ll.GetValue("MyKeys", True))
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
' حذف مفتاح
ll.DeleteValue("MyKeys", True)
End Sub
كود :
Private Sub Button19_Click(sender As System.Object, e As System.EventArgs) Handles Button19.Click
'كود الحفظ
SaveSetting(Application.ProductName, "Mvalue", "00000", TextBox1.Text)
End Sub
Private Sub Button21_Click(sender As System.Object, e As System.EventArgs) Handles Button21.Click
'كود استدعاء القيمة
TextBox1.Text = GetSetting(Application.ProductName, "mvalue", "00000")
End Sub