كتاب بي دي اف لربط فاعده البيانات مع الفيجول بيسك.نت من الصفر

كتاب جديد للمؤلف خالد السعداني
تحميل الكتاب من هنا

لغة الفيجوال بيسك شرح جعل ال Label يتغير لونه كل ثانيه

عند انشائك مشروع جديد

يظهر لك نموذج فاضي تماماً

كبّر مساحته قليلاً بحيث يصبح واسع

أضف نص ( Label )

وعدل على خصائصه:

Font: اجعل حجم الخط 26 و نوعه: Bold

و اضف ( ProgressBar ) لكن لا تضعه داخل النموذج.. ضعه خارج النموذج بحيث لايظهر عند تشغيل البرنامج

و اضف ( Timer ) وضعه في أي مكان (note:لأنك عندما تضعه في أي مكان هو بنفسه سوف ينسق)

اذهب الى الحدث ( Form1_Load )
الذي هو عند ضغطك على أي مساحة فاضية في النموذج

وضف هذه التعليمة

رمز PHP:

Timer1.Start()  

-----------------

ثم اذهب الى الحدث ( Timer1_Tick )
الذي يظهر لك عند ضغطك للـ Timer الذي أنشأته

وضف هذه التعليمات

رمز PHP:

  Timer1.Start()
        ProgressBar1.Increment(+1)

        If ProgressBar1.Value = 2 Then
            Label1.ForeColor = Color.Red
            Label1.Text = "أحمر"

        End If

        If ProgressBar1.Value = 3 Then
            Label1.ForeColor = Color.Blue
            Label1.Text = "أزرق"


        End If

        If ProgressBar1.Value = 4 Then
            Label1.ForeColor = Color.Green
            Label1.Text = "أخضر"

  End If

        If ProgressBar1.Value = 5 Then
            Label1.ForeColor = Color.Yellow

            Label1.Text = "أصفر"

        End If

        If ProgressBar1.Value = 5 Then
            Timer1.Stop()
            ProgressBar1.Value = 1
            Timer1.Start()

        End If  

                                                           الآن جرب النموذج