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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Sad محتاج برنامج تشفير قوى Mohamed Magdy 4 114 منذ 5 ساعة مضت
آخر رد: Mohamed Magdy
Sad محتاج كود فى اداة ال vlc Mohamed Magdy 1 53 13-12-18, 10:54 AM
آخر رد: Mohamed Magdy
  يجبرني البرنامج على حفظ صورة الموظف!! أبووسم 3 105 10-12-18, 11:49 PM
آخر رد: ahmadpal
  مساعدة السعيدي 12 295 08-12-18, 12:01 AM
آخر رد: السعيدي
  [سؤال] واجهات البرنامج تظهر في الاجهزة الاخرى بحجم كبير yassbazz1987 3 74 07-12-18, 05:07 PM
آخر رد: ahmadpal
  كيف يمكنك فتح اكثر من فورم داخل فورم الرئيسي mostafa zaki 11 8,214 06-12-18, 10:08 PM
آخر رد: PeterGhattas082460
  [سؤال] توقف البرنامج عن العمل allo5_800 7 130 05-12-18, 08:25 PM
آخر رد: ابو روضة
  شباب محتاج مساعدة فى اداة ال vlc Mohamed Magdy 2 74 05-12-18, 10:49 AM
آخر رد: Mohamed Magdy
  مساعدة ضرورية بخصوص برنامج Aminsoft 4 176 04-12-18, 06:40 AM
آخر رد: asemshahen5
Rainbow [سؤال] تشغيل البرنامج ببرنامج اسامه الهرماوي 6 166 02-12-18, 09:33 PM
آخر رد: اسامه الهرماوي

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


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