22-06-19, 12:35 PM
(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