فارس الضلام
مكان الاقامة : رابود تقييم الادارة للعضو : اداري متالق عدد المساهمات : 201 نقاط : 51457 السٌّمعَة : 13 تاريخ التسجيل : 15/04/2010 العمر : 29 الموقع : www.momen171@yahoo.com العمل/الترفيه : طالب مدرسي المزاج : كوووووووووولللللللل
| موضوع: كيفية اضافة كلمة سر الى برنامج الفيجول بيسك خاصتك الأربعاء 22 ديسمبر 2010, 11:06 pm | |
| Private Sub Form_Load() Dim s As Integer Dim passw As String Do Until (s = 5 Or passw = "00000") passw = InputBox("ادخل كلمة المرور", "كلمة مرور مطلوبة") s = s + 1 Loop If s = 5 Then MsgBox "كلمة المرور التي ادخلتها خاطئة... الرجاء حاول مرة أخرى", vbOKOnly, "خطأ في كلمة المرور" End 'عرض النموذج بعد التأكد من تحقق الشرط frmLogo.Show "frmlogo" 'خروج من التكرار End If End Sub انسخها كما هي وضعها في بداية جملتك البرمجية او في بداية البرنامج | |
|