(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
الله يسسسعدك ويرزقك من حيث لاتحتسب ^_^