منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
سؤال : كيف يمكنني عن طريق textbox وضع رقم معين - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سؤال : كيف يمكنني عن طريق textbox وضع رقم معين (/showthread.php?tid=32330)

سؤال : كيف يمكنني عن طريق textbox وضع رقم معين - malek369 - 03-12-19

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

RE: سؤال : كيف يمكنني عن طريق textbox وضع رقم معين - 3booody - 03-12-19

كود :
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


RE: سؤال : كيف يمكنني عن طريق textbox وضع رقم معين - malek369 - 03-12-19

(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

RE: سؤال : كيف يمكنني عن طريق textbox وضع رقم معين - 3booody - 03-12-19

كود :
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


RE: سؤال : كيف يمكنني عن طريق textbox وضع رقم معين - malek369 - 03-12-19

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