تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] مشكلة اغلاق البرنامج عند فتحة .
#11
إحذف الأكواد كلها لأنك بتكرر الكود
مثلا الباتون 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
الرد }}}
تم الشكر بواسطة: MohamedAllam
#12
(19-07-17, 02:58 PM)silverlight كتب : إحذف الأكواد كلها لأنك بتكرر الكود
مثلا الباتون 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

أنا اشكرك من كل قلبي علي المساعدة  Heart 
هل لي أن اسأل في نفس الموضوع عن شيء اخر ولا في موضوع اخر ؟؟ " لا اعرف سياسة المنتدي بهذا الخصوص " Idea
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم