10-02-18, 03:20 PM
عندي تاب بية 6 تاب بداخلة اريد كود لتنقل بين التاب بعد 2 دقيقة تلقائي
استخدمت تايمر واستخدمت الكود التالي ولكن البرنامج يتوقف كلة حتي تنفيذ الكود والكود يعمل جيدا المشكلة توقف البرنامج حتي تنفيذ لكود
اريد عدم توقف البرنامج والعمل علي باقي اجزاء البرنامج بدون توقف
الكود المستخدم
استخدمت تايمر واستخدمت الكود التالي ولكن البرنامج يتوقف كلة حتي تنفيذ الكود والكود يعمل جيدا المشكلة توقف البرنامج حتي تنفيذ لكود
اريد عدم توقف البرنامج والعمل علي باقي اجزاء البرنامج بدون توقف
الكود المستخدم
كود :
Private Sub button1_Click(sender As System.Object, e As System.EventArgs) Handles button1.Click
Timer1.Enabled = True
Timer1.Start()
End Sub
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
Select Case x
Case 1
TAB.SelectedIndex = 0
x = 2
Case 2
Threading.Thread.Sleep(120000)
TAB.SelectedIndex = 1
x = 3
Case 3
Threading.Thread.Sleep(120000)
TAB.SelectedIndex = 2
x = 4
Case 4
Threading.Thread.Sleep(120000)
TAB.SelectedIndex = 3
x = 5
Case 5
Threading.Thread.Sleep(120000)
TAB.SelectedIndex = 4
x = 6
Case 6
Threading.Thread.Sleep(120000)
TAB.SelectedIndex = 5
x = 7
Timer1.Stop()
Timer1.Enabled = False
End Select
End Sub