منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - ابحث عن كود عمل سلسلة حرفية رقمية معاً

السلام عليكم اخواني الاعزاء
احتاج منكم كود برمجي على الفيجول بيسك يقوم بعمل سلسله حرفية رقمية بنفس الوقت
مثلا
لدي textbox1
و textbox2
الاول يتم فيه اضافة بداية السلسله (فرع١)

والثاني يتم فيه اضافة نهاية السلسلة(فرع ١٠٠)

فتكون النتيجة
فرع١
فرع٢
فرع٣
فرع٤
فرع٥
فرع٦
فرع٧
فرع٨
فرع٩
....
فرع ١٠٠

شاكرا لكم تعاونكم في ايجاد الكود

وعليكم السلام ورحمة الله وبركاته

لجعل الأمر أكثر سلاسة بكتابة الكود :
نجعل أن هناك :
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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

فرعون5

Taha Okla