تغيير ألوان شريط التقدم 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!

VB.NET
المراقبين
المراقبين

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

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

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

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


مشكورررررين

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

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

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

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


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