[Nedaa]

(29-04-16, 12:03 PM)honest كتب : السلام عليكم مع هذا الكود الرائع لقف اي فورم في برنامجك بكلمة سر

كود :

Public Class Form1

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       'تعريف المتغيرات

       Dim s As Integer
       Dim passw As String
       'اعطاء قيمة اولية
       s = 1
       'بدية التكرار واختبار ووضع كلمة المرور
       Do Until (s = 5 Or passw = "هنا ضع كلمة المرور")
           'عرض مربع الادخال لكتابة كلمة المرور
           passw = InputBox("ادخل كلمة المرور الى قاعدة البيانات", "كلمة مرور مطلوبة")
           'مقدار زيادة لستمرار التكرار
           s = s + 1
       Loop
       If s = 5 Then
           'عرض رسالة للمستخدم بعد التكرار دون تحقق الشرط
           MsgBox("كلمة المرور التي ادخلتها خاطئة... الرجاء حاول مرة أخرى", vbOKOnly, "خطأ في كلمة المرور")
           End
           'عرض النموذج بعد التأكد من تحقق الشرط
           Me.Show()
           'خروج من التكرار
       End If
   End Sub
End Class

ارجوا ان ينال اعجابكم ولا تنسوا زر الشكر والتقييم  

شكراً بارك الله فيك