+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : [vb6.0] ابحث عن كود عمل سلسلة حرفية رقمية معاً (/showthread.php?tid=49464)
ابحث عن كود عمل سلسلة حرفية رقمية معاً - فرعون5 - 07-07-24
السلام عليكم اخواني الاعزاء
احتاج منكم كود برمجي على الفيجول بيسك يقوم بعمل سلسله حرفية رقمية بنفس الوقت
مثلا
لدي textbox1
و textbox2
الاول يتم فيه اضافة بداية السلسله (فرع١)
والثاني يتم فيه اضافة نهاية السلسلة(فرع ١٠٠)
فتكون النتيجة
فرع١
فرع٢
فرع٣
فرع٤
فرع٥
فرع٦
فرع٧
فرع٨
فرع٩
....
فرع ١٠٠
شاكرا لكم تعاونكم في ايجاد الكود
RE: ابحث عن كود عمل سلسلة حرفية رقمية معاً - Taha Okla - 09-07-24
وعليكم السلام ورحمة الله وبركاته
لجعل الأمر أكثر سلاسة بكتابة الكود :
نجعل أن هناك :
Text1 يمثل فقط رقم بداية السلسلة.
Text2 يمثل فقط رقم نهاية السلسلة.
Text3 الاسم الذي تريد ربطه بالسلسلة الرقمة (يكتب الاسم دون أرقام فيه)
List1 القائمة التي ستطبع النتائج فيها..
Command1 الزر الذي سنضع الكود داخله .
الكود هو :
كود :
Private Sub Command1_Click()
List1.Clear
For i = Val(Text1.Text) To Val(Text2.Text)
List1.AddItem Text3.Text & i
Next i
End Sub