تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] تشغيل كود بعد وقت معين
#1
عندي تاب بية 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
الرد
تم الشكر بواسطة:
#2
اعمل ذلك في الخلفية باستخدام اداة 
Backgroundworker

ابحث عن كيفية استخدامها هتلاقي كثير
صلى الله على نبينا محمد
اخيكم / محمود صالح
  قال الزهري رحمه الله  
 مــا عُـــبـِد الله بشئ أفضل من العلم 
الرد
تم الشكر بواسطة:
#3
PHP كود :
Private Sub button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles button1.Click
    Timer1
.Interval 120000
    Timer1
.Start()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer1.Tick
    If TAB
.SelectedIndex TAB.TabCount 1 Then
        TAB
.SelectedIndex += 1
    Else
        TAB
.SelectedIndex 0
    End 
If
End Sub 
الرد
تم الشكر بواسطة: ابو روضة
#4
(10-02-18, 04:26 PM)طالب برمجة كتب :
PHP كود :
Private Sub button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles button1.Click
    Timer1
.Interval 120000
    Timer1
.Start()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer1.Tick
    If TAB
.SelectedIndex TAB.TabCount 1 Then
        TAB
.SelectedIndex += 1
    Else
        TAB
.SelectedIndex 0
    End 
If
End Sub 

اشكرك اخي الكريم علي المساعدة فعلا هذا هو المطلوب
الرد
تم الشكر بواسطة:
#5
PHP كود :
Private Sub form1_load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles form1.load
    Timer1
.Interval 5000   
'كل 1000 يعني ثانية واحدة
    Timer1.Start()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    ***************
'
الكود المطلوب
End Sub 
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Lightbulb [VB.NET] اظهار نص عند تحرك النص على جزء معين من Picturebox Doctor GME 3 34 منذ 6 ساعة مضت
آخر رد: ابراهيم ايبو
Brick [VB.NET] عايز طريقة اضافه رقم لحقل معين لمجموعة بيانات x4ahmad 2 139 23-05-20, 01:09 AM
آخر رد: x4ahmad
  حل مشكلة تهنيج البرنامج عند تشغيل الSelenium Chromedriver developermedo111 4 132 03-05-20, 05:52 AM
آخر رد: developermedo111
  تنفيذ امر معين عندما يهنج البرنامج ( التوقف) atefkhalf2004 2 103 01-05-20, 11:17 PM
آخر رد: atefkhalf2004
  تشغيل قاعدة بيانات sql مع vb.net بدون تحميل برنامج SQL SERVER DR.YASER 7 193 30-04-20, 10:39 PM
آخر رد: aljzazy
  حل مشكله البرنامج لايعمل عندنا تشغيل مهمه علي ChromeDriver مثلا developermedo111 1 106 26-04-20, 02:31 AM
آخر رد: mohamedahmed1
  ماهي طريقة تشغيل تقويم ام القرى على ويندوز Xp جيولوجي مبتدئ 0 74 24-04-20, 08:08 AM
آخر رد: جيولوجي مبتدئ
  كيفية اعادة تشغيل البرنامج Emam emam 2 132 13-04-20, 03:28 AM
آخر رد: Emam emam
  [VB.NET] اضافة عدد معين على كل الاسماء دفعة واحدة EMADSSS 4 194 20-03-20, 02:25 PM
آخر رد: EMADSSS
  محتاج مثال سورس ... إظهار تنبية لتاريخ معين .. يعني عندما يأتي تاريخ اليوم المطلوب ي mohamedwasef35 4 289 08-03-20, 12:18 PM
آخر رد: aldery

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم