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

(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") 


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

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

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

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



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


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

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


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

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

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

(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

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