منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] احتاج كود تكرار ListBox - نسخة قابلة للطباعة

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

احتاج كود تكرار ListBox - طالبة متوهقه - 04-05-16

السلام عليكم
احتاج كود تكرار ل قائمة موجود ب ListBox بحيث ينسخ لي القائمه بالترتيب في ال TextBox انا ينسخ لي أول خيار موجود بالقائمه ويوقف احتاج كود يجعله يختار لي الثاني والثالث الى الاخير بالترتيب بدون يكررهم لي بال TextBox يعني يحط لي اول خيار بالقائمه لوحده وبعدها يمسحو ويحطلي ثاني خيار لوحدو



هنا يختار لي اول خيار بالقائمه ويتوقف  Huh



RE: احتاج كود تكرار ListBox - hassan - 04-05-16

(04-05-16, 12:45 AM)طالبة متوهقه كتب :
السلام عليكم
احتاج كود تكرار ل قائمة موجود ب ListBox بحيث ينسخ لي القائمه بالترتيب في ال TextBox انا ينسخ لي أول خيار موجود بالقائمه ويوقف احتاج كود يجعله يختار لي الثاني والثالث الى الاخير بالترتيب بدون يكررهم لي بال TextBox يعني يحط لي اول خيار بالقائمه لوحده وبعدها يمسحو ويحطلي ثاني خيار لوحدو



هنا يختار لي اول خيار بالقائمه ويتوقف  Huh


الرجاء ارفاق المشروع للتعديل


شكرا

RE: احتاج كود تكرار ListBox - طالبة متوهقه - 04-05-16

هذا المشروع اتمنى التكرار يكون بعد كبس واحد ع موافق وهو لوحدو يكررلي الارقام

RE: احتاج كود تكرار ListBox - أسامة - 06-05-16

تفضلى اختى افضل طريقة هى استخدام timer 

اجعلى خصية Enabled = true

كود :
   Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
       TextBox1.Text = ListBox1.SelectedItem
   End Sub

   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       If ListBox1.SelectedIndex = ListBox1.Items.Count - 1 Then
           Timer1.Stop()
       Else
           ListBox1.SelectedIndex += 1
       End If
   End Sub
للتكرار
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
textbox1.text = string.empty ' او textbox1.text ="" ' او textbox1.text.clear
Listbox1.SelectedIndex =0
timer1.start()
end sub

اما اذا كان textbox multi line بمعنى تريدى ان تنسخى كامل العناصر التى فى Listbox يمكنك استخدام هذا الكود

كود :
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       For i As Integer = 1 To ListBox1.Items.Count - 1
           TextBox1.Text = ListBox1.Items(i).ToString
       Next
   End Sub


RE: احتاج كود تكرار ListBox - طالبة متوهقه - 08-05-16

الله يسسسعدك ويرزقك من حيث لاتحتسب ^_^