منتدى مصر التقني
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

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

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

تغيير ألوان شريط التقدم progressbar في VB.NET Empty تغيير ألوان شريط التقدم 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)

النتيجة :     تغيير ألوان شريط التقدم progressbar في VB.NET Ultimate+programming+tutorials+-+progress+bar+color+-+green


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

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

و النتيبجة : تغيير ألوان شريط التقدم progressbar في VB.NET Ultimate+programming+tutorials+-+progress+bar+color+-+yellow


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

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

و النتيجة : تغيير ألوان شريط التقدم progressbar في VB.NET Ultimate+programming+tutorials+-+progress+bar+color+-+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
VB.NET
المراقبين
المراقبين

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

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

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

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


مشكورررررين
بنت البلد
بنت البلد
.....
.....

تاريخ التسجيل : 18/02/2011
المساهمات : 85
النقاط : 160
التقيم : 11
الجنس : انثى

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

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

مُساهمة من طرف 1zaza السبت نوفمبر 24, 2018 5:57 pm


شكرا جزيلا يا اخي
1zaza
1zaza
...
...

تاريخ التسجيل : 18/11/2018
المساهمات : 39
النقاط : 66
التقيم : 3
الدولة : مصر
الجنس : ذكر

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

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

ََ

مواضيع ذات صلة


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