تخصيص الوان شريط التقدم ProgressBar باستخدام SendMessage API

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

تخصيص الوان شريط التقدم ProgressBar باستخدام SendMessage API  Empty تخصيص الوان شريط التقدم ProgressBar باستخدام SendMessage API

مُساهمة من طرف جورج صبحى في الخميس نوفمبر 01, 2018 7:40 pm

مثال يستخدم واجهة SendMessage مع الاسلوب PBM_SETBKCOLOR و الاسلوب PBM_SETBARCOLOR ، لتغيير لون الخلفية ولون التقدم في عنصر تحكم [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

تخصيص الوان شريط التقدم ProgressBar باستخدام SendMessage API  521367438

الشفرة من جزئين 

الجزء الاول الكود التالى فى موديل :

الكود:

Option Explicit  
  
  
الثوابت ل SendMessage
  
Private Const PBM_SETBKCOLOR  As Long = (&H2000& + 1)  
Private Const PBM_SETBARCOLOR As Long = (&H400 + 9)  
  
إعلان عن SendMessage
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _  
                         (ByVal hwnd As Long, ByVal wMsg As Long, _  
                          ByVal wParam As Long, lParam As Any) As Long  

قم بتغيير لون قيمة الشريط ، إذا لم يتم تحديده
   اللون الافتراضي يستخدم لون الاخضر الفاتح  
Public Sub Color_Progreso(ByVal HWND_Prog As Long  Optional ByVal color As Long = vbGreen)  
      
    Call SendMessage(HWND_Prog, PBM_SETBARCOLOR, 0&, ByVal color)  
  
End Sub  
  
تغيير لون خلفية التقدم ، إذا لم يتم تحديده _
   اللون الافتراضي يستخدم اللون الأحمر   
  
Public Sub Color_Fondo(ByVal HWND_Prog As Long, _  
                       Optional ByVal color As Long = vbRed)  
      
    Call SendMessage(HWND_Prog, PBM_SETBKCOLOR, 0&, ByVal color)  
  
End Sub


الجزء الثانى فى حدث التحميل للنافذة ... يجب عليك تمرير Hwnd لشريط التقدم وقيمة اللون التي تريدها في المعلمة الثانية...: Color_Progress و Color_Fund 

الكود:
Color_Fondo ProgressBar1.hwnd, vbRed
  
Color_Progreso ProgressBar1.hwnd, &HFF00&



بس كدة خلاص  Very Happy
جورج صبحى
جورج صبحى
......
......

تاريخ التسجيل : 18/02/2011
المساهمات : 123
النقاط : 254
التقيم : 5
الجنس : ذكر

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

تخصيص الوان شريط التقدم ProgressBar باستخدام SendMessage API  Empty رد: تخصيص الوان شريط التقدم ProgressBar باستخدام SendMessage API

مُساهمة من طرف السنى في الجمعة نوفمبر 02, 2018 12:27 pm

أحسنت يا جورج شكرا جزيلا 
السنى
السنى
........
........

تاريخ التسجيل : 18/02/2011
المساهمات : 220
النقاط : 411
التقيم : 23
الجنس : ذكر

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

تخصيص الوان شريط التقدم ProgressBar باستخدام SendMessage API  Empty رد: تخصيص الوان شريط التقدم ProgressBar باستخدام SendMessage API

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



شكرا جزيلا يا [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
1zaza
1zaza
..
..

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

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

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

ََ

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


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