[ابو روضة]

السلام عليكم اخوتى

معايا هذه الكود وضعته داخل تايمر بحيث ان ما تم اختياره من الليست بوكس

يتم كتابته داخل الليبول اسم تلو الأخر ليس مرة واحدة يعنى لو اخترت من الليست بوكس

س + ش + ط + ع يتم كتابتهم داخل الليبول بحسب العداد فيبدأ بأول اختيار س مثلا

ثم ينتظر المدة المحددة ثم يكتب ش وهكذا الى ان ينتهى منهم كلهم..

لكن هنا يكتبهم كلهم مرة واحدة

كود :

Dim all As String = ""
       For x = 0 To ListBox1.SelectedItems.Count - 1
           all &= ListBox1.SelectedItems(x) & "  "
       Next
       Label1.Text = (all)

[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 


[ابو روضة]

(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
     


جزاك الله خيرا  أخى لكنه يكتبهم كلهم مرة واحدة ايضا لا شيئ تغير
وانا اريده لا يكتبهم دفعة واحدة بل اسم تلو الاخر بحسب وقت التايمر

[asemshahen5]

الغ التايمر عن الفور وضعه في سب خاص به و تحكم بعدد الثواني من الثريد كما شرحت لك كل 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")