تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
محتاج مساعدة فى عمل اكثر من بسورد لى البرنامج
#1
يا شباب انا عايز اعمل اكثر من بسورد لى البرنامج تبعى لاكن كل بسورد يفتح على فورم معين انا حاولت فيها كثير لاكن بتفشل من حيث انوة لو داخلت تانى بسورد وفتح بيجلى رسالة المسج بوكس بتاعت الخطاء وهاذا الكود الذي اعمل بية 
انا اريد عمل الطريقة دون قاعدة بينات بربطت الدروب بوكس فقط
كود :
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
الرد
تم الشكر بواسطة:
#2
إحفظ كلمات المرور في السيتنغ .

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

كود :
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

سبحان الله وبحمده و الحمد لله ولا اله الا الله والله اكبر
الرد
تم الشكر بواسطة: elgokr
#3
(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
الرد
تم الشكر بواسطة: asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation [VB.NET] اصطياد رسالة الخطأ دون يتوقف البرنامج sniperjawadino 3 49 أمس, 04:12 PM
آخر رد: elgokr
  هل البرنامج له عدد معين من الفورم Emam emam 10 174 19-02-19, 07:09 PM
آخر رد: حريف برمجة
  مساعدة في موقع panels على الفورم ؟؟؟ abdullhadi999 2 72 16-02-19, 02:45 AM
آخر رد: أحمد النجار
Information [VB.NET] مساعدة : حساب الناتج الاجمالي georgos 4 93 15-02-19, 11:35 PM
آخر رد: georgos
  مساعدة بمشكلة مكتبات الوورد و الاكسل محمد خيري 0 52 12-02-19, 12:39 AM
آخر رد: محمد خيري
  مساعدة هامة احتاج كود يقوم بعمل طباعة تلقائية ل ReportViwer مجرد فتح الفورم mohamedgadain61 1 97 11-02-19, 09:47 AM
آخر رد: mohamedgadain61
  مساعدة في اتمام المشروع georgos 0 83 11-02-19, 01:32 AM
آخر رد: georgos
  مساعدة بخصوص امر show سمير جمال 3 115 07-02-19, 03:53 AM
آخر رد: حريف برمجة
Question [سؤال] تعبئة TreeView مع جود اكثر من عملية بحث ادخل جدوالين alims 0 51 06-02-19, 11:58 PM
آخر رد: alims
  [VB.NET] اريد ربط البرنامج مع xampp 0theghost0 2 119 06-02-19, 09:04 PM
آخر رد: aljzazy

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


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