[wared]

(22-06-19, 11:08 AM)e-coder كتب : ممتاز اخ سامي محمد


ولكن اريد مسح الاسماء التي وضعت في textbox
من listbox



حاولت وضع كود تالي لمسح الاسماء التي استخدمت ولم تنجح
 Me.ListBox1.Select()
            Me.ListBox1.Items.RemoveAt(0)
            Me.ListBox1.SelectedIndex = 0

الفكرة اخي

ان الاسماء في لست بوكس
تأتي في Textbox
وعند وصول الاسم 10 رقم عشرة
يتوقف ويعاود تكرار المحاولة لاسماء جديدة غير الاسماء التي
وضعها في Textbox سابقاً
بوقت زمني لا يقل عن 3 دقائق
مع مسح الاسماء التي استخدمت

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        BackgroundWorker1.RunWorkerAsync()
        Control.CheckForIllegalCrossThreadCalls = False
    End Sub

    Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Dim i, x As Byte
        For Each itm As String In ListBox1.Items
            TextBox1.Text = itm
            If i + x = 1 Then Threading.Thread.Sleep(6000) : i = x
            i += 1
        Next
        MsgBox("end")
    End Sub 


الملف في مرفقات
وشكرا

(لست مبرمج VB.NET)

تعديل

كود :

Private Sub BackgroundWorker1_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker1.DoWork
   Dim i As Byte
   Do While ListBox1.Items.Count > 0
       TextBox1.Text = ListBox1.Items(0)
       ListBox1.Items.RemoveAt(0)
       If i = 10 Then Threading.Thread.Sleep(6000) : i = 0
       i += 1
       Threading.Thread.Sleep(100)
   Loop
   TextBox1.Clear()
End Sub