منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] ممكن كود خفظ البيانات فى الــMy.Settings - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] ممكن كود خفظ البيانات فى الــMy.Settings (/showthread.php?tid=23922)

الصفحات: 1 2

ممكن كود خفظ البيانات فى الــMy.Settings - MOSTAFA.KAMEL - 20-02-18

حفقظ البيانات من التكست بوكس 1 و2 و3 في
My.Settings
وكود يتم القراءة البيانات المحفوظة  من الMy.Settings

ومع امكانية مسح البيانات الموجوده فى My.Settings


RE: ممكن كود خفظ البيانات فى الــMy.Settings - ibraheam - 20-02-18

اعتقد ان العناصر في تبويبة ال (Setting) هي للقراءة فقط وبالتالي لا يمكن تغييرها او حذفها في وقت التنفيذ (Run Time)
اما قراءتها فهي كما اشرت في مشاركتك


PHP كود :
My.Settings. 
ثم تذكر اسم العنصر الموجود ضمن تبويبة ال (Setting)

تحياتي

RE: ممكن كود خفظ البيانات فى الــMy.Settings - MOSTAFA.KAMEL - 20-02-18

(20-02-18, 11:10 PM)ibraheam كتب : اعتقد ان العناصر في تبويبة ال (Setting) هي للقراءة فقط وبالتالي لا يمكن تغييرها او حذفها في وقت التنفيذ (Run Time)
اما قراءتها فهي كما اشرت في مشاركتك


PHP كود :
My.Settings. 
ثم تذكر اسم العنصر الموجود ضمن تبويبة ال (Setting)

تحياتي
شكرا لحضرتك ولكن الفكرة انا عايز احفظ البيانات الى بتكتب مرة واحدة فقط من التيكست 1 و 2 و 3 بس ويتم الاتصال بيهم فى كل الفروم الموجودة فى البرنامج

RE: ممكن كود خفظ البيانات فى الــMy.Settings - ibraheam - 21-02-18

اذا كنت فهمتك صح .. اعتقد ان تريد ان تقرأ البيانات الموجودة في تبويبة ال(Setting) وتضع القيم التي قرأتها في مربعات نص (1 و 2 و 3) لكي تستخدم تلك القيم في بقية نوافذ البرنامج .. هل هو هذا المطلوب؟؟

RE: ممكن كود خفظ البيانات فى الــMy.Settings - MOSTAFA.KAMEL - 21-02-18

شكراااااااا اخى تم حل المشكلة

RE: ممكن كود خفظ البيانات فى الــMy.Settings - عبد العزيز البسكري - 21-02-18

السلام عليكم و رحمة الله و بركاته
لو سمحت أخي " مصطفى كمال " .. كيف تم حل المشكلة .. من حيث الحفظ و قراءة البيانات و حذفها من الريجستري
بارك الله فيك سلفا
تحياتي

RE: ممكن كود خفظ البيانات فى الــMy.Settings - MOSTAFA.KAMEL - 21-02-18

(21-02-18, 06:58 PM)عبد العزيز البسكري كتب : السلام عليكم و رحمة الله و بركاته
لو سمحت أخي " مصطفى كمال " .. كيف تم حل المشكلة .. من حيث الحفظ و قراءة البيانات و حذفها من الريجستري
بارك الله فيك سلفا
تحياتي

تم حل المشكلة بملف تيكست بمعنى ان البيانات تتحفظ فى الملف التكست ويتم تحميل البيانات منها فى المشروع

RE: ممكن كود خفظ البيانات فى الــMy.Settings - عبد العزيز البسكري - 21-02-18

(21-02-18, 09:00 PM)MOSTAFA.KAMEL كتب :
(21-02-18, 06:58 PM)عبد العزيز البسكري كتب : السلام عليكم و رحمة الله و بركاته
لو سمحت أخي " مصطفى كمال " .. كيف تم حل المشكلة .. من حيث الحفظ و قراءة البيانات و حذفها من الريجستري
بارك الله فيك سلفا
تحياتي

تم حل المشكلة بملف تيكست بمعنى ان البيانات تتحفظ فى الملف التكست ويتم تحميل البيانات منها فى المشروع

بارك الله فيك و لك و جزاك خير الجزاء


RE: ممكن كود خفظ البيانات فى الــMy.Settings - محمد اسماعيل - 21-02-18

موضوع الريجيستير كامل

انشاء مفتاح و اضافة قيمة للريجيستير و حذف المفتاح
كود :
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


RE: ممكن كود خفظ البيانات فى الــMy.Settings - عبد العزيز البسكري - 21-02-18

(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

السّلام عليكم و رحمة الله و بركاته
كل الشّكر و التّقدير و المحبّة و الاحترام أخي الكريم " محمد إسماعيل " على الهديّة الرائعة التي أنعمت عليَّ بها لفهمها أكثر .. إلهي ينعم عليك بخير الدنيا و الآخرة بعد عمر طويل إن شاء الله
تحياتي