منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
محتاج مساعدة فى عمل اكثر من بسورد لى البرنامج - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : محتاج مساعدة فى عمل اكثر من بسورد لى البرنامج (/showthread.php?tid=27594)



محتاج مساعدة فى عمل اكثر من بسورد لى البرنامج - Mohamed Magdy - 23-11-18

يا شباب انا عايز اعمل اكثر من بسورد لى البرنامج تبعى لاكن كل بسورد يفتح على فورم معين انا حاولت فيها كثير لاكن بتفشل من حيث انوة لو داخلت تانى بسورد وفتح بيجلى رسالة المسج بوكس بتاعت الخطاء وهاذا الكود الذي اعمل بية 
انا اريد عمل الطريقة دون قاعدة بينات بربطت الدروب بوكس فقط
كود :
If Label1.Text = TextBox1.Text Then
           Form1.Show()
           Me.Hide()
       Else
           MsgBox("false information")
           
       End If
If Label1.Text = TextBox1.Text Then
           Form1.Show()
           Me.Hide()
       Else
           MsgBox("false information")
           
       End If


If Label2.Text = TextBox1.Text Then
           Form2.Show()
           Me.Hide()
       Else
           MsgBox("false information")
           
       End If



RE: محتاج مساعدة فى عمل اكثر من بسورد لى البرنامج - asemshahen5 - 23-11-18

إحفظ كلمات المرور في السيتنغ .

أما بالنسبة لعرض النوافذ :

كود :
If TextBox1.Text = My.Settings.Pass1 Then
           Dim frmshow1 As New FormShow1
           frmshow1.Show()
       ElseIf TextBox1.Text = My.Settings.Pass2 Then
           Dim frmshow2 As New FormShow2
           frmshow2.Show()
       Else
           MsgBox("false information")
       End If



RE: محتاج مساعدة فى عمل اكثر من بسورد لى البرنامج - Mohamed Magdy - 23-11-18

(23-11-18, 08:16 AM)asemshahen5 كتب : إحفظ كلمات المرور في السيتنغ .

أما بالنسبة لعرض النوافذ :

كود :
If TextBox1.Text = My.Settings.Pass1 Then
           Dim frmshow1 As New FormShow1
           frmshow1.Show()
       ElseIf TextBox1.Text = My.Settings.Pass2 Then
           Dim frmshow2 As New FormShow2
           frmshow2.Show()
       Else
           MsgBox("false information")
       End If

لا انا عايز احدث البسورد عن بعد من الدروب بوكس اخى
وشكراا على ردك

(23-11-18, 08:16 AM)asemshahen5 كتب : إحفظ كلمات المرور في السيتنغ .

أما بالنسبة لعرض النوافذ :

كود :
If TextBox1.Text = My.Settings.Pass1 Then
           Dim frmshow1 As New FormShow1
           frmshow1.Show()
       ElseIf TextBox1.Text = My.Settings.Pass2 Then
           Dim frmshow2 As New FormShow2
           frmshow2.Show()
       Else
           MsgBox("false information")
       End If
شكرا لك اخى تم الانتها من المشكلة بى الكود تبعك فقط لفد عدلت علية من حيث خليتوة كدا 

كود :
       If TextBox1.Text = Label2.Text Then
           Form2.Panel1.Visible = False
           Form2.Show()
       ElseIf TextBox1.Text = Label3.Text Then

           Form2.Panel1.Show()
           Form2.Show()
       Else
           MsgBox("false information")
       End If
   End Sub