تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال : كيف يمكنني عن طريق textbox وضع رقم معين
#1
السلام عليكم 
انا ريد من textbox انا اضع مثلا رقم معين 
مثلا 1231231
وثم اضغط على button يظهر لي الارقام هذه وبجانبها الارقام مثلا من 000 الى 100 في Listbox
هكذا 
1231231000
1231231001
1231231002
1231231003
1231231004
1231231005
الى اخر لحد ال 100
وشكرا لكم
لا اله الا الله محمد رسول الله أستغفر الله العظيم واتوب اليه سبحان الله وبحمده سبحان الله العظيم
الرد
تم الشكر بواسطة:
#2
كود :
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
الرد
#3
(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 , ابراهيم ايبو
#4
كود :
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
الرد
#5
كلمة شكر لا تكفي والله
راح ادعيلك كمان الله يوفقك ويفتحها بوجهك يا رب
كل الاحترام والتقدير اخي الكريم
نجحت 100%
لا اله الا الله محمد رسول الله أستغفر الله العظيم واتوب اليه سبحان الله وبحمده سبحان الله العظيم
الرد
تم الشكر بواسطة: 3booody , ابراهيم ايبو



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


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