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

(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

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