[Mohamed Magdy]

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

كود :

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

[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

[Mohamed Magdy]

(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