منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : ممكن كود خفظ البيانات فى الــMy.Settings
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
حفقظ البيانات من التكست بوكس 1 و2 و3 في
My.Settings
وكود يتم القراءة البيانات المحفوظة  من الMy.Settings

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


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

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


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

تحياتي
شكرا لحضرتك ولكن الفكرة انا عايز احفظ البيانات الى بتكتب مرة واحدة فقط من التيكست 1 و 2 و 3 بس ويتم الاتصال بيهم فى كل الفروم الموجودة فى البرنامج
اذا كنت فهمتك صح .. اعتقد ان تريد ان تقرأ البيانات الموجودة في تبويبة ال(Setting) وتضع القيم التي قرأتها في مربعات نص (1 و 2 و 3) لكي تستخدم تلك القيم في بقية نوافذ البرنامج .. هل هو هذا المطلوب؟؟
شكراااااااا اخى تم حل المشكلة
السلام عليكم و رحمة الله و بركاته
لو سمحت أخي " مصطفى كمال " .. كيف تم حل المشكلة .. من حيث الحفظ و قراءة البيانات و حذفها من الريجستري
بارك الله فيك سلفا
تحياتي
(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

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