منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : سؤال بسيط
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم
لو سمحت انا  أثناء البرنامج بينفذ كود معين مخلي البرنامج يظهر label مكتوب فيها انتظر حتي يتم الانتهاء الليبل ده مخفي ولكن حين اضغط علي الزر المفروض يظهر انا كاتب كود يخليه يظهر لحد اما ينتهي يخفيها تاني ولكن هي مش بتظهر ولما لتظهر معلقه  لاني عمل فيها علامه  wait متحركه بس هي مبتتحركش    ارجو ان الكود وضحت السؤال وشكرا
المشكل في كود التايمر

ارفع مشروعك نعدل عليه

مثال
[attachment=26581]

الملف فيه زر + لبال  لكتابة انتظر التحميل او انتهى التحميل + ليبال 2 لعرض التايمر + عنصر progress لعرض تقدم التحميل

كود :
Public Class Form1
   Dim ali As Integer = 0
   

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Label1.Text = ""
       Label2.Text = ""
       ProgressBar1.Maximum = 6
       ProgressBar1.Value = 0
   End Sub

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

   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       Label1.Text = "انتظر التحميل"

       ali += 1
       Label2.Text = ali
       ProgressBar1.Value = ali
       If ali > 5 Then
           Timer1.Stop()
           ali = 0
           Label1.Text = "انتهى التحميل "
           Label2.Text = ""
       End If
   End Sub
End Class
المشكله ان البرنامج كله بيتقب وقت تنفيذ الكود انا عايزه يديليى وقت يكون احتمال الكود يتنفذ. فيه