استفاده همزمان از چند تایمر بدون وقفه در برنامه
دوشنبه, ۵ ارديبهشت ۱۳۹۰، ۱۰:۱۲ ق.ظ
چند وقتی بود درگیر مسئله ای برای پایان نامه ام بودم. مسئله از این قرار بود که میخواستم لیست باکسی توی ویژوال استدیو درست کنم که هر آیتمی که به آن وارد می شود ۴ ثانیه بعد پاک بشه و بره توی لیست باکس دیگه.
برای اطلاعات بیشتر
اما بالاخره بعد از کمی تلاش بهش رسیدم.
کدش را میذارم تا شما هم استفاده کنید.
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
برای اطلاعات بیشتر
