[عبد الهادي بهاب]

المشكل في كود التايمر

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

---

مثال

  WindowsApplication6.rar (الحجم : 71.01 ك ب / التحميلات : 10)

الملف فيه زر + لبال  لكتابة انتظر التحميل او انتهى التحميل + ليبال 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