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

نسخة كاملة : سؤال : كيف يمكنني عن طريق textbox وضع رقم معين
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم 
انا ريد من textbox انا اضع مثلا رقم معين 
مثلا 1231231
وثم اضغط على button يظهر لي الارقام هذه وبجانبها الارقام مثلا من 000 الى 100 في Listbox
هكذا 
1231231000
1231231001
1231231002
1231231003
1231231004
1231231005
الى اخر لحد ال 100
وشكرا لكم
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim Num As Integer = 1231231
       For i As Integer = 0 To 100
           Application.DoEvents()
           TextBox1.Text &= Num & Format(i, "000") & vbNewLine
       Next
   End Sub
(03-12-19, 12:42 PM)3booody كتب : [ -> ]
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim Num As Integer = 1231231
       For i As Integer = 0 To 100
           Application.DoEvents()
           TextBox1.Text &= Num & Format(i, "000") & vbNewLine
       Next
   End Sub

اخي مشكور بس انا بدي ياخد من ال textbox ويحطهم ب listbox 

يعني مثلا كتبت في ال textbox هيك (((          123|123|123   ))) او اسم او اي شيء مش ضروري رقم او اشي ثابت
يطلعو هيك بليست بوكس  
123|123|123|001
123|123|123|002
123|123|123|003
123|123|123|004
123|123|123|005
123|123|123|006
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim str As String = TextBox1.Text
       For i As Integer = 0 To 100 ' من صفر الى مئة
           Application.DoEvents()
           ListBox1.Items.Add(str & Format(i, "000"))
       Next
   End Sub
كلمة شكر لا تكفي والله
راح ادعيلك كمان الله يوفقك ويفتحها بوجهك يا رب
كل الاحترام والتقدير اخي الكريم
نجحت 100%