السلام عليكم اخوتى
معايا هذه الكود وضعته داخل تايمر بحيث ان ما تم اختياره من الليست بوكس
يتم كتابته داخل الليبول اسم تلو الأخر ليس مرة واحدة يعنى لو اخترت من الليست بوكس
س + ش + ط + ع يتم كتابتهم داخل الليبول بحسب العداد فيبدأ بأول اختيار س مثلا
ثم ينتظر المدة المحددة ثم يكتب ش وهكذا الى ان ينتهى منهم كلهم..
لكن هنا يكتبهم كلهم مرة واحدة
كود :
Dim all As String = ""
For x = 0 To ListBox1.SelectedItems.Count - 1
all &= ListBox1.SelectedItems(x) & " "
Next
Label1.Text = (all)
(30-07-19, 03:57 AM)asemshahen5 كتب : [ -> ]استخدم الكود التالي :
PHP كود :
Dim all As String = ""
For x = 0 To ListBox1.SelectedItems.Count - 1
'كل 1000 نساوي ثانية'
Threading.Thread.Sleep(1000)
Label1.Text &= ListBox1.SelectedItems(x) & " "
Next
جزاك الله خيرا أخى لكنه يكتبهم كلهم مرة واحدة ايضا لا شيئ تغير
وانا اريده لا يكتبهم دفعة واحدة بل اسم تلو الاخر بحسب وقت التايمر
الغ التايمر عن الفور وضعه في سب خاص به و تحكم بعدد الثواني من الثريد كما شرحت لك كل 1000 تعطي ثانية زودها لترا الفرق .
(30-07-19, 04:20 AM)asemshahen5 كتب : [ -> ]الغ التايمر عن الفور وضعه في سب خاص به و تحكم بعدد الثواني من الثريد كما شرحت لك كل 1000 تعطي ثانية زودها لترا الفرق .
بارك الله فيك أخى الكريم.
عملته هكذا وتمام بفضل الله
كود :
Dim all As String = ""
For x = 0 To ListBox1.SelectedItems.Count - 1
Await Task.Delay(3000)
all &= ListBox1.SelectedItems(x) & " "
Label1.Text = (all)
Next
MsgBox("don")