تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] ارجو المساعده في كود
#1
السلام عليكم ورحمه الله وبركاته 
اخواني ارجو مساعدتي في الكود او مثال 
وشكرا


الملفات المرفقة
.rar   iD No.rar (الحجم : 1.89 ك ب / التحميلات : 32)
الرد }}}
تم الشكر بواسطة:
#2
السّلام عليكم و رحمة الله و بركاته
أخي الكريم حسب معلوماتي البسيطة و فهمي الذي أتمنى أن أكون غير مخطيء ..هذه محاولة لعلّ و عسلى تفي بالغرض إن شاء الله
أكمل المثال على نفس منوال الكود بالفورم ما عدا التاكست الأخير لا تكتبه
إحتراماتي


الملفات المرفقة
.rar   SetFocus.rar (الحجم : 1.96 ك ب / التحميلات : 29)
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , sendbad100 , sendbad100
#3
فى خواص هذه ال TEXT اجعل الخاصية  MAXlength  على قدر عدد الحروف أو الأرقام المسموح بها
أى فى طلبك هذا اجعلها =1
الرد }}}
#4
كما يمكنك طبعآ عمل الكود الذى ذكره عبد العزيز البسكري
ولكن يفضل لك فى هذا البرنامج أوغيره (طالما عدد ال 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 IntegerKeyAscii As Integer)
If 
Index Text1.Count 1 Then GoTo 100
Index
If Len(Text1(I)) = 0 Then Text1(1).SetFocus
100 End Sub 
وطبعآ يمكن حذف كود ال FORM ACTIVATE 
ووضع خاصية ال MaxLengt  لآخر تكست (للTEXST1(9) ) تساوى 1
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , Ahmed_Mansoor
#5
اشكركم اصدقائي للتفاعل مع الموضوع وصلت الفكره
جزكم الله كل خير
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اساتذتي الاحبة ارجو منكم المساعدة بنت الشام 2 2,253 07-10-18, 11:58 AM
آخر رد: بنت الشام
Video [نقاش] ارجو الرد على السؤال الفلترة والفرز amer2000 4 2,131 01-10-18, 01:20 AM
آخر رد: amer2000
  [سؤال] الى الاخوة في المنتدى ارجو مساعدتي في هذا المشروع sher 2 1,989 08-09-18, 09:41 PM
آخر رد: جاسم عبد
  ارجو المساعدة في سكوال سيرفر عمور2016 11 4,029 15-04-18, 03:05 AM
آخر رد: عبد العزيز البسكري
  [كود] ارجو من الاخوة المساعدة في جمع الاعمدة عمور2016 4 2,394 19-02-18, 04:25 PM
آخر رد: عمور2016
  رسالة خطا ارجو المساعدة محمد حمد محمد 5 2,545 14-02-18, 12:48 AM
آخر رد: Ahmed_Mansoor
Sad [سؤال] ارجو من الشباب الشرح معنى الرسالة ؟ amer2000 4 2,552 08-05-17, 04:45 PM
آخر رد: mansoor
  [vb6.0] ارجو التعديل على مجموع الحسابين الموجود في المشروع عبدالقادرعواد 2 2,097 23-02-17, 01:35 AM
آخر رد: عبدالقادرعواد
  سؤال حيرني في حلقة التكرار Do ارجو المساعده mohd_sader 1 2,138 10-12-16, 12:57 AM
آخر رد: Ahmed_Mansoor
Bug [vb6.0] ارجو المساعدة في حفظ وطباعة الصور من قاعدة البيانلت amer2000 4 2,977 21-11-16, 11:45 AM
آخر رد: amer2000

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم