استفاده همزمان از چند تایمر بدون وقفه در برنامه

چند وقتی بود درگیر مسئله ای برای پایان نامه ام بودم. مسئله از این قرار بود که میخواستم لیست باکسی توی ویژوال استدیو درست کنم که هر آیتمی که به آن وارد می شود ۴ ثانیه بعد پاک بشه و بره توی لیست باکس دیگه.

اما بالاخره بعد از کمی تلاش بهش رسیدم.

کدش را میذارم تا شما هم استفاده کنید.

---

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Control.CheckForIllegalCrossThreadCalls = False

ListBox1.Items.Insert(ListBox1.Items.Count, "a")

Dim t As New System.Threading.Timer(AddressOf TimerProc)

t.Change(4000, 0)

End Sub

Private Sub TimerProc(ByVal state As Object)

Dim t As System.Threading.Timer = CType(state, System.Threading.Timer)

t.Dispose()

ListBox2.Items.Add(ListBox1.Items(0).ToString)

ListBox1.Items.RemoveAt(0)

End Sub

---

برای اطلاعات بیشتر