[اليوم السابع]

(26-10-19, 06:53 PM)asemshahen5 كتب :

PHP كود :

      ' 'Set or Add value to registry:
        Application.UserAppDataRegistry.SetValue("FirstOpening", False)


    '    'Get or Load value from registry:
        Application.UserAppDataRegistry.GetValue("FirstOpening") 


ممكن شرح الكود والحدث المناسب له

[asemshahen5]

PHP كود :

' 'كود الحفظ للرجستري :
        Application.UserAppDataRegistry.SetValue("FirstOpening", False)


    '    'جلب محتوى القيمة المخزنة في الريجستري:
        Application.UserAppDataRegistry.GetValue("FirstOpening") 


للتجربة قم بالتالي :

اعمل مشروع جديد افتح الفورم و اضف زرين على الفورم :

الزر الاول ضع به الكود التالي :

PHP كود :

Application.UserAppDataRegistry.SetValue("FirstOpening", False) 


الزر الثاني ضع به الكود التالي :

PHP كود :

MsgBox(Application.UserAppDataRegistry.GetValue("FirstOpening").ToString) 


اعمل بيلد للمشروع و شغله اضغط على الزر الاول و هو لحفظ قيمة في الريجستري و ثم اضغط على الزر الثاني و هو لجلب القيمة المخزنة في الرجستري و عرضها في مسج بوكس .

[3booody]

بالضبط كما قال اخي [b]asemshahen5 اسأل الله ان يزيده علمآ[/b]


وحتى لايبقى سؤال لك اخي هذا كود كامل لك

لنفرض لديك تكست بوكس واذا كانت قيمة التكست بوكس هي 123 سيتحقق الشرط ويفتح الفورم الثاني واذا كانت غيرها لن يتم فتح الفورم الثاني ابدآ

ضع واحد تكست بوكس وزر بوتون

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       If Application.UserAppDataRegistry.OpenSubKey("FirstOpening") Is Nothing Then
           Application.UserAppDataRegistry.CreateSubKey("FirstOpening", False)
       End If
       If Application.UserAppDataRegistry.GetValue("FirstOpening").ToString = "True" Then
           MsgBox("لن يتم فتح الفورم الثاني")
           Return
       End If
       If TextBox1.Text = "123" Then
           Application.UserAppDataRegistry.SetValue("FirstOpening", False)
           Form2.Show()
       Else
           Application.UserAppDataRegistry.SetValue("FirstOpening", True)
           MsgBox("خطأ في كلمة السر ولن يتم فتح الفورم الثاني")
       End If
   End Sub

[اليوم السابع]

(27-10-19, 01:43 AM)3booody كتب : بالضبط كما قال اخي [b]asemshahen5 اسأل الله ان يزيده علمآ[/b]


وحتى لايبقى سؤال لك اخي هذا كود كامل لك

لنفرض لديك تكست بوكس واذا كانت قيمة التكست بوكس هي 123 سيتحقق الشرط ويفتح الفورم الثاني واذا كانت غيرها لن يتم فتح الفورم الثاني ابدآ

ضع واحد تكست بوكس وزر بوتون

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       If Application.UserAppDataRegistry.OpenSubKey("FirstOpening") Is Nothing Then
           Application.UserAppDataRegistry.CreateSubKey("FirstOpening", False)
       End If
       If Application.UserAppDataRegistry.GetValue("FirstOpening").ToString = "True" Then
           MsgBox("لن يتم فتح الفورم الثاني")
           Return
       End If
       If TextBox1.Text = "123" Then
           Application.UserAppDataRegistry.SetValue("FirstOpening", False)
           Form2.Show()
       Else
           Application.UserAppDataRegistry.SetValue("FirstOpening", True)
           MsgBox("خطأ في كلمة السر ولن يتم فتح الفورم الثاني")
       End If
   End Sub

مزال اخي عند تغير مكان الفولدر يتم ظهور الفورم ثانيا

[3booody]

أظن انك مخطأ اخي شوف المثال وجرب على كيفك وضعت لك زر يعيد الشغل من الاول للتجربة