السلام عليكم ورحمه الله وبركاته
اخواني ارجو مساعدتي في الكود او مثال
وشكرا
السّلام عليكم و رحمة الله و بركاته
أخي الكريم حسب معلوماتي البسيطة و فهمي الذي أتمنى أن أكون غير مخطيء ..هذه محاولة لعلّ و عسلى تفي بالغرض إن شاء الله
أكمل المثال على نفس منوال الكود بالفورم ما عدا التاكست الأخير لا تكتبه
إحتراماتي
فى خواص هذه ال TEXT اجعل الخاصية MAXlength على قدر عدد الحروف أو الأرقام المسموح بها
أى فى طلبك هذا اجعلها =1
كما يمكنك طبعآ عمل الكود الذى ذكره
عبد العزيز البسكري
ولكن يفضل لك فى هذا البرنامج أوغيره (طالما
عدد ال Text كبير)
أن تسميهم باسم واحد( Text1 مثلآ) وفى خاصية ال Index سيعدل لك أسماءهم لتصبح هكذا Text1(9) ,........................., Text1(2) , Text1(1) , Text1(0)
وتكتب الكود هكذا بدلآ من تكرار كتابته
عدد كبير من المرات
PHP كود :
Private Sub Form_Activate()
Text1(Text1.Count - 1).MaxLength = 1
End Sub
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
If Index = Text1.Count - 1 Then GoTo 100
I = Index
If Len(Text1(I)) = 0 Then Text1(I + 1).SetFocus
100 End Sub
وطبعآ يمكن حذف كود ال FORM ACTIVATE
ووضع خاصية ال MaxLengt لآخر تكست (للTEXST1(9) ) تساوى 1
اشكركم اصدقائي للتفاعل مع الموضوع وصلت الفكره
جزكم الله كل خير