تغيير ألوان شريط التقدم progressbar في VB.NET

اذهب الى الأسفل

تغيير ألوان شريط التقدم progressbar في VB.NET

مُساهمة من طرف VB.NET في الأربعاء ديسمبر 18, 2013 6:56 pm

بسم الله الرحمن الرحيم 

_ يمكنك تغير الوان شريط الحالة progressbar باللون الذى تريدة وذلك من خلال الخطوات التالية :

1_ إستدعاء الوظيفة التالية :
الكود:
Declare Auto Function SendMessage Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer

2_ نقوم بانشاء مجموعة من العناصر لتميثل الالوان المطلوب استخدمها فى شريط الحالة على النحو التالى :
الكود:
Enum ProgressBarColor
        Green = &H1
        Red = &H2
        Yellow = &H3
    End Enum

3_ نقوم بعمل اجراء وليكن باسم ChangeProgBarColor لتطبيق اللون على شريط الحالة على النحو التالى :
الكود:
 Private Shared Sub ChangeProgBarColor(ByVal ProgressBar_Name As Windows.Forms.ProgressBar, ByVal ProgressBar_Color As ProgressBarColor)
        SendMessage(ProgressBar_Name.Handle, &H410, ProgressBar_Color, 0)
    End Sub

4_ نقوم باستدعاء الاجراء لتطبيق اللون المطلوب على شريط الحالة على النحو التالى :

  • لتطبيق اللون الاخضر نستخدم الشفرة التالية :

الكود:
ChangeProgBarColor(ProgressBar1, ProgressBarColor.Green)

النتيجة :     


  • لتطبيق اللون الاصفر نستخدم الشفرة التالية

الكود:
ChangeProgBarColor(ProgressBar1, ProgressBarColor.Yellow)

و النتيبجة :


  • لتطبيق اللون الاحمر نستخدم الشفرة التالية

الكود:
ChangeProgBarColor(ProgressBar1, ProgressBarColor.Red)

و النتيجة :


و اليكم مثال كامل /

الكود:
Public Class Form1

    Declare Auto Function SendMessage Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
    Enum ProgressBarColor
        Green = &H1
        Red = &H2
        Yellow = &H3
    End Enum
    Private Shared Sub ChangeProgBarColor(ByVal ProgressBar_Name As Windows.Forms.ProgressBar, ByVal ProgressBar_Color As ProgressBarColor)
        SendMessage(ProgressBar_Name.Handle, &H410, ProgressBar_Color, 0)
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ChangeProgBarColor(ProgressBar1, ProgressBarColor.Red)
        Timer1.Start()
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ProgressBar1.Value = 0
        ChangeProgBarColor(ProgressBar1, ProgressBarColor.Green)
        Timer1.Start()
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ProgressBar1.Value = 0
        ChangeProgBarColor(ProgressBar1, ProgressBarColor.Yellow)
        Timer1.Start()
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Value += 1
        If ProgressBar1.Value = 99 Then
            Timer1.Stop()
        End If
    End Sub
End Class

 lol! lol! lol! lol!
avatar
VB.NET
المراقبين
المراقبين

تاريخ التسجيل : 18/02/2011
المساهمات : 117
النقاط : 185
التقيم : 6
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: تغيير ألوان شريط التقدم progressbar في VB.NET

مُساهمة من طرف بنت البلد في السبت سبتمبر 20, 2014 7:31 pm


مشكورررررين

بنت البلد
....
....

تاريخ التسجيل : 18/02/2011
المساهمات : 66
النقاط : 126
التقيم : 6
الجنس : انثى

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى