19-07-17, 02:58 PM
(آخر تعديل لهذه المشاركة : 19-07-17, 03:01 PM {2} بواسطة silverlight.)
إحذف الأكواد كلها لأنك بتكرر الكود
مثلا الباتون 2 له اكثر من كود للحدث Click
و اكتب الكود بالشكل التالي في الفورم التاسع
أنا مش فاهم ماذا تحفظ ايه في Setting المشروع لكني تركت السطر الخاص بها كما هو
مثلا الباتون 2 له اكثر من كود للحدث Click
و اكتب الكود بالشكل التالي في الفورم التاسع
أنا مش فاهم ماذا تحفظ ايه في Setting المشروع لكني تركت السطر الخاص بها كما هو
كود :
Private phoneNumber As String = "اكتب رقم تليفون"
Private credential As String = "CMDmodelmedoDOC"
Private CredentialName As String = "amgmedo"
Private CredentialPass As String = "modelmedo"
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim s1 As String = TextBox1.Text
Dim s2 As String = TextBox2.Text
If (s1.Equals(CredentialName) AndAlso s2.Equals(CredentialPass)) OrElse (s1.Equals(phoneNumber) AndAlso s2.Equals(credential)) Then
MsgBox("تم التسجيل بنجاح ... شكرا لك"
My.Settings.Save()
Form2.Show()
Me.Hide()
Else
MsgBox("التسجيل خاطيء ... يرجي المحاولة مرة أخري", vbCritical)
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Form2.Show()
Me.Hide()
End Sub
Retired