تغيير ألوان شريط التقدم progressbar في VB.NET
صفحة 1 من اصل 1 • شاطر
تغيير ألوان شريط التقدم progressbar في VB.NET
بسم الله الرحمن الرحيم
_ يمكنك تغير الوان شريط الحالة 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
VB.NET- المراقبين
- تاريخ التسجيل : 18/02/2011
المساهمات : 121
النقاط : 189
التقيم : 6
الدولة :
الجنس :
بنت البلد- .....
- تاريخ التسجيل : 18/02/2011
المساهمات : 85
النقاط : 160
التقيم : 11
الجنس :
رد: تغيير ألوان شريط التقدم progressbar في VB.NET
شكرا جزيلا يا اخي
1zaza- ...
- تاريخ التسجيل : 18/11/2018
المساهمات : 39
النقاط : 66
التقيم : 3
الدولة :
الجنس :
| |
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
اليوم في 8:37 am من طرف linesoft
» شركة تنظيف واجهات بالرياض
أمس في 7:09 pm من طرف moslema_r
» شركة تنظيف فرشات بالرياض
الثلاثاء مارس 26, 2024 6:26 pm من طرف moslema_r
» شركة تنظيف استراحات بالرياض
الأحد مارس 24, 2024 10:49 pm من طرف moslema_r
» كشف تسربات المياه في جدة
السبت مارس 23, 2024 7:23 pm من طرف gmalnagy
» خدمات كشف تسربات المياه بخصم 25% - اتصل الان
السبت مارس 23, 2024 7:22 pm من طرف gmalnagy
» شركة تنظيف ثريات بالرياض
الخميس مارس 21, 2024 7:23 pm من طرف moslema_r
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد
» افضل معلم جبس بالرياض تركيب جبس بورد بالرياض 20% خصم اتصل الآن
الأحد مارس 17, 2024 1:09 pm من طرف رانيا حماد