ملتقى عشيرة الحريبات

انت الان تزور منتدى الحريبات ولانك ضيفنا الكريم نطلب منك التفضل والتسجيل في المنتدى لا تحرجنا معاك سجل في المنتدى ومش راح تندم سسسسسسسسسسسسسسججججججججججللللللللللللللللللللللللللللللللل
الشغلة بسيطة وما بتوخذ وقت






 
الرئيسيةhttp://alhribatاليوميةمكتبة الصورس .و .جبحـثالتسجيلدخولمركز رفع الملفاتمنتديات مدرسة رابود

شاطر | 
 

 كيفية اضافة كلمة سر الى برنامج الفيجول بيسك خاصتك

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
فارس الضلام

avatar

نائب المدير
مكان الاقامة : رابود
تقييم الادارة للعضو : اداري متالق
ذكر
الثور
عدد المساهمات : 201
نقاط : 27317
السٌّمعَة : 13
تاريخ التسجيل : 15/04/2010
العمر : 23
الموقع : 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


انسخها كما هي وضعها في بداية جملتك البرمجية او في بداية البرنامج

@

_________________
الثقة بالله أزكى أمل . والتوكل عليه أوفى عمل

الله خلقني و ابدع تكويني
.................................................. ..و زادني فخرا و جعلني فلسطيني
و بث التحدي دما في شرايني لاني فلسطيني
((فارس الضلام))
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://alhribat.ahlamontada.net/index.htm
 
كيفية اضافة كلمة سر الى برنامج الفيجول بيسك خاصتك
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
ملتقى عشيرة الحريبات  :: منتدى التكلنوجيا والتقنية :: منتدى البرامج-
انتقل الى: