[malek369]

السلام عليكم 
انا ريد من textbox انا اضع مثلا رقم معين 
مثلا 1231231
وثم اضغط على button يظهر لي الارقام هذه وبجانبها الارقام مثلا من 000 الى 100 في Listbox
هكذا 
1231231000
1231231001
1231231002
1231231003
1231231004
1231231005
الى اخر لحد ال 100
وشكرا لكم

[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

[malek369]

(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

[3booody]

كود :

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

[malek369]

كلمة شكر لا تكفي والله
راح ادعيلك كمان الله يوفقك ويفتحها بوجهك يا رب
كل الاحترام والتقدير اخي الكريم
نجحت 100%