منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمته الله وبركاته

اسعد الله اوةقاتكم لكل خير
لدي طلب بسيط
وهو حمايه امر التعديل على نص معين في مربع تكست اللا اذا ادخل الرقم السري صحيح واذا كان خاطئ تظهر رساله بذلك حتى يتمكن من ادخالها بالشكل الصحيح
ان شاءالله وصلت الفكره

وعليكم السلام ورحمة الله وبركاته
اخي الكريم لماذا تصغر الخط رغم انه صغير بشكل افتراضي Smile

يعني نحتاج للتكبير Smile

بالنسبة للسؤال فابسط الامور هي اظهار مربع ادخال

كود :

Inputbox("اكتب كلمة المرور للاستمرار")

شكرا اخي سعود على الرد
كتبت هالكود
Dim x As String
x = "password"
Dim y As String
y = InputBox("أدخل كلمة السر لتتمكن من التعديل")
If x <> y Then
MsgBox("للأسف كلمة السر خاطئة اتصل بمدير التطبيق")

End If

لكن اريد عندما تكون كلمة السر خاطئة هناك 3 محاولات بعدها تظهر رساله للمستخدم ويرجع الى التطبيق مره اخرى
ان شاءالله وصل الفكره

تفضل

كود :

Dim x As String = "password"

Dim Count As Integer = 0

Err:

If Count < 3 Then

    If Not x = InputBox("أدخل كلمة السر لتتمكن من التعديل") Then

        Count += 1

        MsgBox("للأسف كلمة السر خاطئة اتصل بمدير التطبيق")

        GoTo Err

    End If

Else

    MsgBox("لا يمكنك إدخال كلمة السر أكثر من ثلاث مرات")

End If

مشكور اخوي اسامة بارك الله فيك

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ابو اياد@

سعود

ابو اياد@

OsamaGhareeb

ابو اياد@