+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : [vb6.0] ارجو المساعده في كود (/showthread.php?tid=18806)
ارجو المساعده في كود - iAwadop - 15-01-17
السلام عليكم ورحمه الله وبركاته
اخواني ارجو مساعدتي في الكود او مثال
وشكرا
RE: ارجو المساعده في كود - عبد العزيز البسكري - 15-01-17
السّلام عليكم و رحمة الله و بركاته
أخي الكريم حسب معلوماتي البسيطة و فهمي الذي أتمنى أن أكون غير مخطيء ..هذه محاولة لعلّ و عسلى تفي بالغرض إن شاء الله
أكمل المثال على نفس منوال الكود بالفورم ما عدا التاكست الأخير لا تكتبه
أكمل المثال على نفس منوال الكود بالفورم ما عدا التاكست الأخير لا تكتبه
إحتراماتي
RE: ارجو المساعده في كود - اسلام الكبابى - 15-01-17
فى خواص هذه ال TEXT اجعل الخاصية MAXlength على قدر عدد الحروف أو الأرقام المسموح بها
أى فى طلبك هذا اجعلها =1
RE: ارجو المساعده في كود - اسلام الكبابى - 15-01-17
كما يمكنك طبعآ عمل الكود الذى ذكره عبد العزيز البسكري
ولكن يفضل لك فى هذا البرنامج أوغيره (طالما عدد ال 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
ووضع خاصية ال MaxLengt لآخر تكست (للTEXST1(9) ) تساوى 1
RE: ارجو المساعده في كود - iAwadop - 15-01-17
اشكركم اصدقائي للتفاعل مع الموضوع وصلت الفكره
جزكم الله كل خير