تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود رائع وجميل لقفل اي فورم تريد بكلمة سر
#1
السلام عليكم مع هذا الكود الرائع لقف اي فورم في برنامجك بكلمة سر

كود :
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

ارجوا ان ينال اعجابكم ولا تنسوا زر الشكر والتقييم   Smile
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  موقع رائع وبسيط يقدم دروس واكواد سهلة ومبسطة للغة ال VB.NET honest 1 415 27-04-16, 10:20 AM
آخر رد: honest
Shocked [VB.NET] كود التصدير لاكسيل محمى بكلمة مرور + طباعة ملف الاكسيل walkady 0 402 02-01-16, 04:37 PM
آخر رد: walkady

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم