كيف أعمل فورم يطلب الاسم والرقم السري ؟

If Text1.Text = "Username" And Text2.Text = "Password" Then
Form1.Hide
Form2.Show
Else: Text3.Text = Text3.Text + 1
End If
If Text3.Text = "3" Then
End
End If

اعمل ثلاث Text Box باسم Text1 (اسم المستخدم) Text2 (كلمة المرور) Text3 (عدد المحاولات)

و ضع زر و 2 فورم (Form1 و Form2)

و ضع الكود داخل الزر!

هذا طلبك؟

تحياتي..

الف شكر اخوي raladin بارك الله فيك

لكن اخوي عند وضع كلمة سر غلط تطلع لي نافذة خطأ ؟

أما اذا الباسورد صح يفتح form2 تمام

اين المشكله ؟

على الرحب و السعة!

تأكد من وضع جميع العناصر

أخى العزيز كود الأخ Raladin صحيح تأكد من كتابتك تاكود صحيحاً ؟

---

اعمل ثلاث Text Box باسم Text1 (اسم المستخدم) Text2 (كلمة المرور) Text3 (عدد المحاولات)

و ضع زر و 2 فورم (Form1 و Form2)

و ضع الكود داخل الزر

---

عملت اخواني كل المطلوب ومتاكد !

اذا فيه شي طافني ياليت توضحون لاني مبتدا بالفجوال بيسك

السلام عليكم ورحمة الله وبركاتة

هذا أخى مثال للتعامل مع كلمات السر فى الريجسترى

وهو بسيط وسهل جدا مع شرخ الخطوات أرجوا ان يفيدك

passo.rar

الف شكر اخوي shearer شي جميل جدا

بس من ناحية الباسورد ماعرفته ولاقدرت اضيفه

ثم اخواني شوفوا الكود هذا هو اللي شغال تمام وهو اللي ابيه

لكن ناقصه شغله بسيطه وهي عملية اذا تكرر الاسم والباسورد غلط ثلاث مرات يغلق البرنامج ؟

If Text1.Text = "Username" And Text2.Text = "Password" Then
Form1.Hide
Form2.Show
Else
End
End If

ياليت تضيفون عليه الشغله هذي فقط

بإمكانك عمل ذلك بكل بساطة عن طريق متغير يتم إضافة عدد العمليات إليه:

'General
Dim X As Byte

Private Sub Form_Load()
X = 0
End Sub

Private Sub Command1_Click()
X = X + 1
If Text1.Text = "Username" And Text2.Text = "Password" Then
Form1.Hide
Form2.Show
Else
If X = 3 Then End
End If
End Sub

بالتوفيق

تمام الف شكر اخوي عبد الله فتحي

الله يعطيك العافيه انت وكل من رد في الموضوع

تحياتي .