تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] ربط البرنامج بأكثر من جهاز اسامه الهرماوي 3 102 منذ 1 ساعه مضت
آخر رد: DK-x
  [VB.NET] ما يخص البرنامج في ملف تثبيت exe اسامه الهرماوي 5 154 19-05-19, 12:59 AM
آخر رد: عبد العزيز البسكري
  البرنامج لايعمل علي جهاز العميل makky 3 89 19-05-19, 12:53 AM
آخر رد: elgokr
  مشكله في تغيير مقاسات البرنامج عند نقله علي اللاب توب Emam emam 6 143 19-05-19, 12:10 AM
آخر رد: elgokr
  منع تشغيل البرنامج اكثر من مره مع توجيه امر الى النسخة الشغاله معاذ_ابراهيم 4 114 18-05-19, 11:53 PM
آخر رد: elgokr
  مشكلة توقف البرنامج محمد ابوخليل 4 108 16-05-19, 01:50 PM
آخر رد: elgokr
Heart [VB.NET] كل عام وانتم بخير ... محتاج كود نسخ قاعدة البيانات تلقائيا abdullhadi999 32 711 15-05-19, 08:24 PM
آخر رد: asemshahen5
  مساعدة جزاكم الله خير fouadhdfouad 1 65 08-05-19, 10:57 PM
آخر رد: ابراهيم ايبو
  [VB.NET] محتاج تعديل على الكود dubai.eig 2 83 07-05-19, 06:02 PM
آخر رد: dubai.eig
Photo [مشروع] مساعدة في برنامج hamadz 1 88 06-05-19, 06:02 AM
آخر رد: ابراهيم ايبو

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


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