+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : محتاج كود (/showthread.php?tid=1588)
محتاج كود - ابو اياد@ - 17-01-14
السلام عليكم ورحمته الله وبركاته
اسعد الله اوةقاتكم لكل خير
لدي طلب بسيط
وهو حمايه امر التعديل على نص معين في مربع تكست اللا اذا ادخل الرقم السري صحيح واذا كان خاطئ تظهر رساله بذلك حتى يتمكن من ادخالها بالشكل الصحيح
ان شاءالله وصلت الفكره
اسعد الله اوةقاتكم لكل خير
لدي طلب بسيط
وهو حمايه امر التعديل على نص معين في مربع تكست اللا اذا ادخل الرقم السري صحيح واذا كان خاطئ تظهر رساله بذلك حتى يتمكن من ادخالها بالشكل الصحيح
ان شاءالله وصلت الفكره
RE: محتاج كود - سعود - 17-01-14
وعليكم السلام ورحمة الله وبركاته
اخي الكريم لماذا تصغر الخط رغم انه صغير بشكل افتراضي
يعني نحتاج للتكبيربالنسبة للسؤال فابسط الامور هي اظهار مربع ادخال
كود :
Inputbox("اكتب كلمة المرور للاستمرار")RE: محتاج كود - ابو اياد@ - 19-01-14
شكرا اخي سعود على الرد
كتبت هالكود
Dim x As String
x = "password"
Dim y As String
y = InputBox("أدخل كلمة السر لتتمكن من التعديل")
If x <> y Then
MsgBox("للأسف كلمة السر خاطئة اتصل بمدير التطبيق")
End If
لكن اريد عندما تكون كلمة السر خاطئة هناك 3 محاولات بعدها تظهر رساله للمستخدم ويرجع الى التطبيق مره اخرى
ان شاءالله وصل الفكره
RE: محتاج كود - OsamaGhareeb - 19-01-14
تفضل
كود :
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 IfRE: محتاج كود - ابو اياد@ - 19-01-14
مشكور اخوي اسامة بارك الله فيك