29-04-16, 12:03 PM
السلام عليكم مع هذا الكود الرائع لقف اي فورم في برنامجك بكلمة سر
ارجوا ان ينال اعجابكم ولا تنسوا زر الشكر والتقييم
كود :
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
ارجوا ان ينال اعجابكم ولا تنسوا زر الشكر والتقييم
___________________________
___________________________