(24-09-14, 11:44 AM)kslawy كتب : السلام عليكم ورحمة الله وبركاته

وجدت كلاس بالانترنت مرفقة تحت

طريقة الاستخدام:

PHP كود :

Public Class Form1
    'يحتوي علي الزمن المطلوب timeSpan الكلاس يحتاج لمتغير من نوع 
    ' مثلا هنا يبدأ العداد التنازلي من ثلاثة ساعة
    Dim ts As New TimeSpan(3, 0, 0)

    ' نسخة من كلاس العداد التنازلي مع أحداثها
    ' لأنها تحتوي علي حدث مهم وهو أداة التايمر
    Dim WithEvents cd As New CountDown

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

        'له timeSpan تجهيز العداد بعد اسناد  
        cd.SetTime(ts)

        ' بدأ العداد
        cd.Start()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ' إيقاف العداد
        cd.Pause()
    End Sub


    ' عند أخذ نسخة منه كما هو مبين فوق WithEvents هذا الحدث خاص بكلاس العداد التنازلي لا يظهر إلي بإضافة الكلمة 
    Private Sub cd_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles cd.Tick
        ' إظهار تقدم العداد 
        Me.Label1.Text = String.Format("{0:00}:{1:00}:{2:00}", cd.Hours, cd.Minutes, cd.Seconds)

        ' إظهار تحذير إذا وصل العداد للدقيقة العاشرة
        ' نكتفي هنا بتغيير لون نص الأداة للون الأحمر
        If Label1.Text = "00:10:00" Then
            Label1.ForeColor = Color.Red
        End If

    End Sub


End Class 


[ltr]