[طالبة متوهقه]

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



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

[hassan]

(04-05-16, 12:45 AM)طالبة متوهقه كتب :

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



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

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


شكرا

[طالبة متوهقه]

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

[أسامة]

تفضلى اختى افضل طريقة هى استخدام 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

[طالبة متوهقه]

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