14-03-14, 05:18 PM
السلام عليكم ورحمة الله وبركاته
أخي الكريم
يوجد أكثر من حل لهذي المشكلة سأضع لك حلان
الأول :-
تستطيع جعل Text تستقبل أرقام محدده فبتالي سيضطر المستخدم من كتابة الرقم دون رقم 0 في البداية مثلا
تريد من المستخدم كتابة رقم جوال والمعروف ان عدد أرقام الجوال هو 10 ارقام مع رقم 0
يوجد خاصية في Text اسمها MaxLength والقيمة الافتراضية هي 0 قم بجعلها 9 فبتالي سنمنع المستخدم من كتابة
أكثر من 9 ارقام سيضطر المستخدم من حذف رقم صفر حتى يكتمل رقمه
وتستطيع وضع تنوية بجانب Text مكتوب بها ( اكتب رقم جوالك دون كتابة رقم 0 الأول)
الثاني :-
ضع هذا الكود في حدث عند الخروج من Text اسم الحدث Text1_LostFocus
سأشرح لك عمل هذا الكود
السطر الأول
--------------------------------------
If Left$(Tex1.Text, 1) = "0" Then
--------------------------------------
أجلب لي من Text1 خانة واحدة فقط وأبداء الحسبة من على اليسار ومن ثم قارنه مع رقم 0 هل هو صفر حقا ام لا
السطر الثاني
--------------------------------------
Text1.Text = Mid(Text1.Text, 2, Len(Text1.Text) - 1)
--------------------------------------
أجعل قيمة Text1 تساوي النص الموجود في Text1 ولاكن ليس كله ! فقط أقتبس منه مايلي أبدأ من الحرف الثاني حتى عدد الأحرف جميعا الذي في TextBox وانقص منه حرف واحد لانه رقم 0 قمنا بإزالته
السطر الثالث
--------------------------------------
End If
--------------------------------------
انهي الأداء الشرطية
بالتوفيق
أخي الكريم
يوجد أكثر من حل لهذي المشكلة سأضع لك حلان
الأول :-
تستطيع جعل Text تستقبل أرقام محدده فبتالي سيضطر المستخدم من كتابة الرقم دون رقم 0 في البداية مثلا
تريد من المستخدم كتابة رقم جوال والمعروف ان عدد أرقام الجوال هو 10 ارقام مع رقم 0
يوجد خاصية في Text اسمها MaxLength والقيمة الافتراضية هي 0 قم بجعلها 9 فبتالي سنمنع المستخدم من كتابة
أكثر من 9 ارقام سيضطر المستخدم من حذف رقم صفر حتى يكتمل رقمه

وتستطيع وضع تنوية بجانب Text مكتوب بها ( اكتب رقم جوالك دون كتابة رقم 0 الأول)
الثاني :-
ضع هذا الكود في حدث عند الخروج من Text اسم الحدث Text1_LostFocus
PHP كود :
If Left$(Text1.Text, 1) = "0" Then
Text1.Text = Mid(Text1.Text, 2, Len(Text1.Text) - 1)
End If
سأشرح لك عمل هذا الكود
السطر الأول
--------------------------------------
If Left$(Tex1.Text, 1) = "0" Then
--------------------------------------
أجلب لي من Text1 خانة واحدة فقط وأبداء الحسبة من على اليسار ومن ثم قارنه مع رقم 0 هل هو صفر حقا ام لا
السطر الثاني
--------------------------------------
Text1.Text = Mid(Text1.Text, 2, Len(Text1.Text) - 1)
--------------------------------------
أجعل قيمة Text1 تساوي النص الموجود في Text1 ولاكن ليس كله ! فقط أقتبس منه مايلي أبدأ من الحرف الثاني حتى عدد الأحرف جميعا الذي في TextBox وانقص منه حرف واحد لانه رقم 0 قمنا بإزالته
السطر الثالث
--------------------------------------
End If
--------------------------------------
انهي الأداء الشرطية
بالتوفيق
<---------------------------------------------------------------->

